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NTRODUCTION 

f<3RTRAN ha* long been regardeJ u die proRramniing language most suited 
to scientific and numeric applications, FORTRAN 77 is the latest standards 
ised version of the language. This manual describes the use of Acomsoft 
FORTRAN 77 ibt the Atchimedes peisonal workstations^ note that it is not a 
tutorial. 

The Acomsoft FORTRAN 77 conipiler has b<.»cn fully validated in conibr' 
mance with the American National Standand Progtamming Language FOR¬ 
TRAN X3.9-1978 (AKS FORTRAN). Detailed language specifications are 
given in the publication American Niuitrtiiil S'mndard Language 

FORTRAN, Xd.9'i978 which is available ftom the British Standards Insti¬ 
tute, Less technical apprtwcKes are pmvided in A Structured Approoclt to 
FORTRAN 77 Programming by T M R Ellis, published by Addivm Wesley, 
and A Pocket Guide at FOIiTRAN 77 by Clive F^c, published by Piinrtan. 

From now on, unless otherwise stated, or made obvious from the context, 
FORTRAN 77 is taken to mean the Acornstift implementation of FORTRAN 
77 for the Archimedes personal workstations. 

CONVENTIONS USED IN THIS MANUAL 

The following conventions are used throughi^t this manuah 

• Text entered by the user and text as it appears on the screen are shown like 
this: 

This is text as it appears on the screen. 

• Arguments to commands and (.^tions are shown as fiallnws: 

—debug arguments 

The user should enter the chosen Value for s rgumen ts. 

• Optional argutnenis are shown in square btacketi. 

SETTING UP YOUR MACHINE FOR FORTRAN 

The Friittan 77 system does not run under the desktop or BASIC. 

If you are using the desktop, exit by selecting the appropriate icon. You should 
see a pn>mpt consisting of a single *, You can select a normal black and white 
colour scheme by entering BASIC and changing the screen mode; 

*SAS1C 
>H0DE 0 
>auiT 




Akemahvetvt the mtxle he changed at the * pnimpt by typing CtrlA^ 
fiillnwed by 0 thutd ch-e Ctrl key down while pressing V and then press the 0 
key). 

If you are running BASIC, exit by usinK the QUIT ecTiTLtnand. 

You can configure your machine so that it starts up ready for Fortran by typing: 
*Z0H¥lQ\JnE LANGUAGE 0 

When you next switch the machine on, it wilt start at the * prtimpt. TTie 
desktop may be entered by typing DESKTOP: 

•DESKTOP 

BASIC may be eniered by typing BASIC: 
ftBASlC 

You can configure the machine to start in the desktop again by typing: 

•configure EAN^UAGE 3 
or to start in BASIC by typing: 

• C0NF14SURE LANGUAGE 4 

Fortran 77 programs require the fioating point emulator to be installed. To do 
this on Arthur 1.2^ you must load the emulator from the Fortran 77 disc. If you 
are rvot sure what version of Arthur y™ are using, perform the following steps 
to find out: 

• quit the desktop 

• fom the * prtJtnpt, type: 
f xO 

A inessage of the form 

Arthur 1,20 C01 September 1987> (Error number 6F7) 

will be displayed^ If the version number k 1,20^ imvert rhe Fortran 77 disc and 
rypej 

S.Lib*.tp£ 

The emulator must be Installed each time the machine is switched on or reset 
with a hard break. The installation section below shows how to set up a lBo<ji 
file to do this automatically. 
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DIRECTORY STRUCTURE 

The Fortran 77 system consists of a ccrnifsiler which cc inverts Fortran programs 
to machine code^ a iinJter which combines compiled programs with the Fortran 
Ithrtury into executable images ^ and 3 number of commaTid fiks which arc used 
to mn the compiler and tinker. These command files assume the following 
directories: 

f77: contains Fortran 77 scsurce files- 

aoh contains machine ctsie files produced tsy the compiler- 

tmpi temptirary scmcch files produced during the compilaritsn pntxrcss. 

In addition, the directories Library' and Exec lib are used to hold the standard 
pairs of the systemn 


INSTALLATION 

Fortran 77 may be used with a variety of disc configurations^ Installation 
instructions for the Etmplest cases are given below. 

Before doing anything elsci make a backup copy of the distribution disc and 
keep the original somewhere safe. To make the copVi ensure that the original 
is write-pfotecied (by sliding the tab to uncover the liole) and then type: 


^backup 0 0 q 

You will he prompted for the source and dei»tinaiicm disc^. 
The Fortran 77 release disc contains the following files: 


ImtallHD 

Utiliry to install system on hard liisc 

[nstallNET 

Uriliry to insrall system on network file server 

Library.<77 

ProKram forf77 command file 

Library.f77fc 

Fortran 77 compiler, part one 

Librarv.f77cg 

Fortran 77 compiler, parr iwo 

Library, itrtk 

Linker 

Library. I(nkt77 

Program for Iinkf77 command file 

Library.fpe 

Floating point emulator 

Library. tib.f77 

Fortran library 

E)ceclLb.f77 

f77 command file 

Ex«:Ub.linkf77 

Iinkf77 command file 

FTT.edate 

Example program tor debugger session 

F77.HelloW 

Simple test program 

F77,OSdetno 

Demonstration program for Arthur interlace rou' 
tines 



The following tree displays the structure of the disc more graphically; 
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Operating system variables 

The Arthur opemetng systeni uses several Amng u^maMcj ro control the runnir^g 
of programs. One of the mosit Important is RunlPath^ which ii u^ed as a list of 
dni^tories to be searched fiTr a program. In additioni the Fortran 77 system 
uses three special variables to specify the location oi standard files. These arei 

F77$Execlibr The directijry ctmtaining the srandard command files 177 and 
Iinkf77, The default if this variable is ntit sei h $. Excel Ik (the directory 
$,Excclih on the current disc and filing system). Note that the directory name 
Includes a final full st(.>p, ff the command fil^ are not on the cuirent di^ or 
filing system, F77$Execlih must be set so that the command processor entt 
locate rhem^ For example, if the tiles have been moved to m network file 
server, the variable could be set as follows^ 

*set f?7SEKecLib net:S,ExecLih- 

F77$Library: The full name t)( the direenny containing the standard Fortran 
library. Thedefeuft if the vMiable is not set is $.LibraryJib-f77. 

F77STmp: The directory used for temporary scratch files created during the 
compilation process. The default is $.Tmp. (againt nine the final foil sttsp in 
the value). This is suitable for mtist configurariom. If you are using the system 
on a shared network file server, y<3U must have a private tinp direccory, since 
$.Tmp would be common to all users. In diis case, you should set F77$Tmp as 
follows: 

*set FTTlTaip tmp- 

Scratch files will then be cftated in tmp in your current directory- 
Single floppy disc 

The Fortran 77 system can be used w^irh a single 80OK floppy disc. Prepare a 
disc by making another copy of the distributton disc. You should then delete 
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unwanted tiles (such as the iTistalbiii}n utilities and example programs) to 
maximise the tree space on the disCr You will also need to install a suitable 
editor (such as Twin) by copying it froin aniTther disc. 

You will find that yenj have about 3(X>K free on the disc. This is atUquate for 
developing moderatelv'Si^ed programs. You should not attempt to store too 
many programs on a single disc. You should also run ^COMPACT occasion' 
ally, to ensure that the disc space Is not badly fragmented. If you need more 
space, object tiles resulting from compilation may he copied on to another disc 
containing the linker. 

The default settings ofb77$Execlih, FTTILibraiy and F77$Ttnpare suitable for 
a system with a single tioppy disc. 

Two (loppy discs 

If you have a system with dual floppy drives, y<iu can keep the Foitran 77 
system on the first disc and your pmgtams and data on the second. Make a 
cr)py of the distributkin disc (using the * BACKUP command again) and use it 
as the system disc in drive 0. You will also need to copy a suitable editor (such 
as Twin) on to the disc. 

Set up an empty pri'igram disc in drive 1 by creating directories f77, aof and 
tmp; 

#dir ;1.S 
•edit f77 
*cd'ir aol 
*cdir twp 

You can copy the demonstration pnigrams fmm the system d^ with a 
command like; 

copy :l.f77.* 

The standard Fortran system variables should be set as follows: 

*set f77SExec(ib :D,S.E*eeMh. 

*set F77SLibrapy : Q.S.Uf brary, Mb.f77 
*set F77Tiip t-tmp. 

With these settings, the command files and Fortran library will he read from 
the system disc in drive 0, and scratch files will be created in the subdirectory 
$. tmp on the current disc. 

You may delete the installatiun utilities and example programs from the Eystetn 
disc if you need mtire space. 



Hard disc 


The InstallHD utilitY on the distriburion di5c may be used to set up Fortran on 
^ h;lrd disc system. Run it by typing: 

;0. Insta 

The system files are copied to $*Library and $.EKeclih on the hard disc* The 
sample pu?grams are copied to S.f77, Empty directories $*aof and S.tmp are 
created fiir use hy the system. 

Note rhac InstallHD wilt prompt if a file mi^ht be overwriiien by the copy: if 
this happens with system utilities like the linker, you should check that the 
version on the Fortran disc is later than the one you already have. The version 
number of a ciimmand like the linker can be obtained by: 

link -id 

Ideally^ you should make a backup cofiy of the old version before overwriting 

tc. 

The default settings of F77$Execltb, FTTSLibrary and F77$Tnip are suitable for 
a hard disc sy^em. 

You must create f77 and aof directories In each suhdirectxjty that you use h>r 
Fortran programs. For example, suppose you wish to set up a subdirectory 
/owner for the developmcnc of a fourier anaJysis program. This would be done 
as follows: 

*Cdir tourier 
*tifr fourier 
*cdir f7T 
*cdir aof 

Network 

The InstallNET utility on the distribution disc may be used to install the 
Fortran system on a network file server. To use it, you must be Ic^ed on as a 
system ufser (usually SYST). 

Note that IrtstiillNET will prompt if a file might be c^verwritten by the Copy — if 
this happens with system uhlities like the linker, you should check that the 
version an the Fortran disc is later than the one you already have^ The vmion 
number of a command like the linker can be obtained by: 

Link -“id 

Ideally^ you should make a backup copy of the old version before overwriting 
in 



InstallNET the: pregrafns to the di rectory Arthur lib on the 

file server. You mys[ include this directory in the Ci^mtn^nd search path before 
attempting to use the sv^tem. This is done by setting the system variable 
RunSPath: 

*set RunfPath ^%*^net:S*ftrtlhurLib* 

This would search the current directory + the current library and then 
$.Arthurlih on the file server. Since net s is included explicitly, this path will 
also work if your current direcrorv is t^n a floppy disc. This means char you can 
develop your programs on a floppy and run rhe compiler from the nerwork file 
server {as long as you are logged onh 

The standard Fortran system variables should he set for network use as follows: 

F77$Execi!b net: 1« Exec J.ib. 

♦set F77SLibrary net:S.ArthurLib*Lib.f77 
♦set F77STIBP tmp. 

With these settings, the command files and Fortran lihniry will be read frtim 
the file server, and scratch files will be creared in the subdirectory tmp. 

You must create f77, and tmp dirccrorics in your irutrent net (or floppy) 
directory before using the system. 

Ifioot 

When installatinn is complete, you can prepare ai [Bocjt file to perform 
standard initialisation operations whenever you turn the machine on {or 
whenever you log in to a file server 

The Fortran initialisation procedure shouldi 

• Load the floating ptiint emulator if ir Ls not already resident. 

• Set the command search path (RunJParh) if you are using a non-standard 
disc configuration. 

• Set the Fortran operating system variablcJi If necessary. 

The required commands can he entered into a iBoot file on yoiif boot disc. If 
you are using a network file serverj the boot file is called lArmBoot, rather 
than .^BoLit^ 

For example, if you are using a hard disc or single floppy system, then all you 
need do Is; 

♦BUILD [Boot 
1 f pe 



If you »re itetrLiig up a neiwork system, then the iArmBotit lile in your net 
direciory should containt 

set RunSPath /oet:S.Arthur lib. 
set F77SExeclIb net:S.Exec lib. 
set F77$Lfbrafy net: S . A rthur I 1 b.Mb.f77 
set F77STfflp tmp. 
f pe 

On a disc system, !B(x)t vvill be run aucomaticallv when you rum your machine 
on if y<iu enter the following cunmiands: 

*OPT 4,3 
♦CONFIGURE BOOT 

On a network system, lArmBiHJt will be run automatically when you log inU> 
the Ale server if you enter; 

♦OPT 4,3 

If you are using a sysiem with a single floppy drive, you will need to ser up a 
j BiKir hie on each Fortran disc rhat you use. 

If you use Fortran only rarely, you may nor wisli to dedicate the iBoot file on 
your disc for initialising the Fortnin system. Instead, you can create an exec 
lile which you obey whenever you wish to use Fortran. 

CHECKING THE INSTALLATION 

When you have completed the installation, yt>u can check the system by 
compiling and running a simple pTOgram. Either enter a new program or copy 
the demonstration program f77,Heik>W from the distriburion disc (if you have 
installed on a hard disc or single floppy disc, f77,HelloW will already be 
there). The demonstration program F77.cdate is for use in a sample ASD 
(Arthur Symbolic Debugger) ^ssiuh and has a deliberate bug - do not be 
surprised if the results it prt>duces are nor correct! 

Compile the program by typing; 

f77 he I low 

You should see messages like: 

Tapexpress FORTRAN 77 front end version K19 
Progran WORLD Conpiled 

Total uorkspece used 6016 

ARN FORTRAN 77 code generator version 1.62 
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^Introduction 

Main CuORLD): code 10&; data 20 

Total code size: 104; data size; 20 

The version oumbcis may he slightly different in the programji; on the 
distribution disc. 

Link ihc prt>gram hy typing: 

Hnfcf77 helUH 

The linker sbtmid nm without any messages. The linked program may be run 
by typing: 

he I leu 

You shtiuld see the output: 

Hello Fortran World 

If there are any problems, it is possible that the insrattacion was not completed 
correctly. Check the following points; 

• If you get erruts like 'Mistake', you are probably trying to run the Fortran 
system inside BASIC- Exit froin BASIC by typing QUIT and try again. 

• If you get ‘Bad command' errots, the run path (RunSPath) may not be 
correct for your configuration, You can display its current value by typing: 

show RunS'P&th 

Note that directory names in the path must end with a full stop, 

• Check that the Fortran system variables are correct, A message like 

f77! can’t find cOAHiand file for f77 

indicates that F77$Execlib has not been set correctly iit that the files in 
$.Execlib have nor been installed properly. A message like 

f77; can’t open work file" name” 

iiuhcHtes that F77STmp has not been set coircctly or that the tmp directory 
(usually $.Tnip) has not been created- 

Note that the values trf F77$ExecItb and F77STmp should both end with a 
hill stop. 

MISCELLANEOUS POINTS 

The two parts of the Fortran compiler can be run separately. Thta is explained 
in more detail in the next chapter, 'The Compfler*. For the HelloW program, 
this could be done as follows: 
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f77fe f77,hEtlotf -to S.tmp.fcadp 
t 77 Eg S.tmp.fcade aaf.,hielLow 

The command xum pare am of the compiler, which reads the source file 
f77-helliiw and writes an intermediate form to $4tiTLpTcade« The second 
command reads this fi!e and writes object code to aof.hellow* 

The first part of the compiler (f?7fe) can be used if you just want to check for 
compdation errors^ For example: 

f77fe f77_profl 

will read the program in f77.prog and display any errors it might contaiRi If 
ytju wish you can use the nius feature of the operatinjg system to create a 
shorthand; 

.set aliflsSfe "f77fe f77." 

This will enable you ro type: 

fe prag 
instead of: 
f77f0 f77*prog 

You can add commands ro set altas springs to your lEoot file. 


12 



COMPILER 


The FORTRAN 77 compiler is up ijf two parts: a front end which 
checks that the source co^ conforms to the standard, and a code generator 
which creates the equivalent machine code program. This is in Acorn Object 
Format (AOF) and is linked into an executable form using the I inker program. 
Command files are ntirmally used to petfbnn a compilation and do link. There 
are a number of arguments which can he iwued to give extra control over the 
compilation and allow options to be specified. 

The command f77 exKutes a command file which runs the two parts of the 
compiler in sequence, and so compiles the pn>gram without the need for the 
user to give two separate commands. 

You can write your own command files for running the Furtian compiler with 
a different set of arguments, If you da ihb, it is advisable to use a diffeteni 
command name and leave f77 consistent wtth the examples in this manual, 
Insmictions for wnting new command files are given in .Appendix C. 

To mn the two parts of the compiler and the linker separately, the command 
f77fe is used ior the front end, f77cB is used to generate the machine code, and 
link is used to link AOF files into executable programs. 

COMPILATION ARGUMENTS 

The f77 command compiles a single saurce file to object form. The format of 
the command line is: 

f77 C-f roa} name C-object namel [-opt optiansi 
[-debug level! [-idl 

where name is a user supplied file name, op tions is a'string of one or more 
compilef options and Level is a debug level name (see below), Bfackets 
([ and I) enclose optionul items. The arguments can he given in any order. 
Explanations of each follow: 

-i rqM name 

The .sriurcc file is the only argument which is not optional (although the 
keyword - from is}. It specifies the name of the file which contains the cede 
to be compiled. The file must be in directory f77. 



-opt optfons 

Several opttoas are accepted by the compiler. These are given in the -opt 
argument. The nprians available are listed in the next section, CompiluticJii 
□ptirau. 

-object name 

By default, tht AOF output U written to the file aof , nanet where name is 
the source file name. Tlie -object argument can be used tt} direct the 
output to another file in the aof directory (the name given is prefixed with 
'aof.’ before use), 

-debug Level 

The -debug argument controls the amount of symbtrlic debugging 
information included in the AOF file for Use with ASD, the Arthur Symbolic 
Debugger. (Note that Appendix F contains a sample ASD Fortran session). 
The level should be tme of the following: 

none No information. This is the default, 
win Suhrouttne and function names only. 

vars Subroutine and function names, and variable name infonnation. 
lines Subroutine and function names, and line number infotmarion. 
all Subroutine, function, variable and tme information, max is a 
synonym for alt. 

Normally, none i* used for a working pnigram and a LI for pmgraras under 
devebpmenr. The full information is i^uite bulky and so should be avoided 
when not debugging. The intermediate levels can be used to provide some 
debugging assistance whilst saving space. 

-id 

The “ i d (or -identify) argument causes the f77 command to diiplay the 
vetsion number of the FORTRAN 77 syfitem. 

The special keyword -help cun be used to obtain a summary of the 
arguments expected by the f77 command: 

f77 -help 
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Exainpl-e compilt^r command^i 
Tfu! minEmd/ command 
i77 Fprog 

All source files by defiiult reside iti ^ stibdirecrory called This command 
therefore compileiih the ^wce prograin 177* Fprog. The ourpui will be 
directed to aof . Fprog - 

Em>r messages are sent to the VDU* Default compilation options are used^ 
Redirecting die f^isjecf fik and using aunpder options 
f 77 Fprog -abject Fred ^opt +6 

This compiles 177. Fprog pToducing the object tile aaf . Fred using the 
FORTRAN 66 option. 

f 77 prog -debug all 

Camptle f77 prog to AOF in aof *prog^ with full debugging information 
included. 

f77 -help 

Display summary of arguments and options- 
f77 progZ -object -debug Bin -id 

Compile f77-prog2 to AOF in with minima! debugging 

information. The FORTHAN 77 version number is displayed- 

COMPILATION OPTIONS 

The -^opt argument is followed by a list of compilation tiptions (in upper or 
lower case)* 

The options H, T, 6 and 7 are enabled or disabled by preceding them with 
+ or The options L and W must be followed by a number. The 
default for the fuH set of options is; 

L1W2X0 -eHT6 

This means that code gei^erator line numbering is set to level 1; level Z 
warning messages are given; there is no cross-'referencing output, no bound 
checking, and Hollerith constants are not allowed; tracing and FORTRAN 66 
are disabled^ 

The Options have the folhawing meanings; 
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B Causes the compiler to Renerate bounds checking code. Array or 
substring subscripts out of range will cause run-time errors to be 
reported in programs compiled with this option. 

H When enabled, this option allows Hollerith constants to be used in 
DATA statements to initialise non-character variables (for example, 
INTEGER). 

L n This oprion is followed by a number which indicates the level of line 
numbering included in the code for backtrace purposes (see the chapter 
entitled Errors and debugging). The levels available are: 

• 0 no line numbering 

• I numbers lines containing subprogram calls 

• 2 statements which can cause a run-time exception 

• >2 numbers every line 

Higher levels cause more code to be generated. If a hardwate exceprion 
wcuts in a module compiled with level I p the backtrace system will not 
he able to determine the exact line number; instead a range of numbers 
will be given (for example, 100/106). The error will lie in this range, 

6 This trpeion allows FORTRAN 66 feamte to be used; if enabled, it 
implies the H cation. When set, most cttnstructs which have different 
meanings in the two vetaions are interpreted according ro the 
FORTRAN 66 definiiion. In paixicular; 

• DO loops will always execute at least once. 

• Hollerith (nH) constants are allowed in DATA and CALL 
statements, and quoted cortstants in calls are not of CHARACrfER 
type. 

• NiJn-CHARACTER array names are allowed as fonnat ipecifters. 

When the FORTRAN 66 switch is used, Hollerith and quoted 
constants are treated in the same way when used as arguments in 
CALLS - they are not of CHARACTER type. The option is provided 
for use with FORTRAN 66 programs which store character information 
in numeric data types. 

Ftir example, the following calls will have identical effects at run time if 
the FORTRAN 66 switch is used: 
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call jint (’abcdM 
call jin (4habcd> 



IHE COMPILER 


If rKe FORTRAN 66 switc h is set, mn-tiiiie FORMAT? srecifters may 
aisc be non'CHARACTER array names. 

R^r exjunpic; 

double precision dl3),nun 
datBd(1>,d(3> /3h (lX,b20., 
data nun /2h1D/ 

dC2} - num 

urite <6, d) 2.3dD, 1G 

m m m 

This fecitity was introduced to a^ist in the implemf!ntation of 
FORTRAN 66 progmms^ it is strongly recommended that new 
programs tise CHARACTER formats- 

T This causes the compiler to planr tracing ccjde in the output file* The 
+T switch causes the fmnt end to embed call$ to special trace routines 
at various points in the program^ such as program unit entry^ DO 
statements, labelled executable statement?^ and suhpmgram calls (see 
the chapter entitled Emirs md (kbufsmg)^ 

Wn This sets the warning mcEsage level. A ftsUowing digit of 0-4 is 
interpreted from the lero level as 'suppress all watnirigs' to 'juint all 
warnings' (level 4). See the chapter entitled Enws and fbr 

more details. 

Xn This is followed by a cross-reference listing width of 18 or more for 
miiximum legibility . A valut of zero suppresses Gross-referencing. The 
upper limit depends upon the device ro which the listing is being seni 
(for example I the printetji Crewis-reference information is given 
immediately after the END statement of a pirignim unit- For each 
name, the type is given^ ttigether with the lines on which it is 
referenced^ For each statement labeL the type (executable or non- 
cxecuiahle) and the line number of the statement is given* as well as 
the lines on which the label is referenced. 

7 This option is used to control warnings abemt the use of FORTRAN 77 
language extensions* If unsec. wamin|^ are not produced; if set^ 
messages are prcKluced when the warning level (Wn) is 2 (the default) 
or greater. The cjprion is unset by default* so that the extenswins may be 
used without messages* whatever the warning level. 
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COMPILING IN SEPARATE STAGES 

As an alternative to using the f77 command to execute a command file that 
runs hoih parts of the compiler, the front end and the code generator can be 
run separately. This section gives details of how to do this. 

Front end 

The front end (f77fc) reads a FORTRAN 77 source program and converts it to 
a special intermediate form known as FCODE. 

The options handled by the front end arc X, W, T, 6 and 7. The defa ul t 
settings are XOW2'T67. 

Command format 

The fhmi end has the ft}l lowing command format: 

f77fc C-fronJ ffle C-to file] C-list ffleJ 
C-opt nptfans] C-ver 

“from 

FORTRAN 77 source program, 

-to 

FOODE output file. Jf this argument is not quoted, no FCODE is pruditced. 
-list 

Listing file. If LIST is quoted, a listing of the source program with line 
numbers is sent to the file, together with any error messages. Otherwise etroi 
messages are sent to the initial output stream, and no listing is pniduced. 

-opt 

Front end option siring. The options available were described in the section 
entitled Campiiatim opfaHij. 

-uef 

Output file for compiler messages and errors; if omitted, output is to the 
terminal. 

The special keyword -help can be used to obtain a summary of the 
arguTTicnts expected by the front end; 

f77fe -help 
Examples 

f77fc f77.prog -to tnp.fcode 

Compile source ptrigram in f77.prng to FCODE in tmp.fcode. 
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f77fe f77.prog -ver x 

Compile f77.pmg, producing no FCODE output, with messages sent to the 
hie X. 

f77fe f77-ptofl “to tmp.fcode -list list-prog 

Compile as before, but also send source listing to the file prog in directory list, 

f77fe f77.prog -to tBp.fCoete -opt t 
Compile with tracing calls inctuiicd. 


Code generator 

The code generator takes an FCODE file and produces an object file and/or 
assembler output- 

The opttonS handled by the code generator ate L, B and H. The option 6 may 
be used instead of H. Tlie default settings are Ll—BH, 

The front end options T, 7, W and X ate ignored by the code generator, 
whilst the front end ignores B and L, so that the same option string may be 
given to both programs, if required. 


Cotnifuind line 

The code generator has the following command format: 

f77cfl E-fcodeJ filet-to / He] C-asmfiie] C-ver /fie] 
E-nap ffie] C-opt optfonsD E-debug level] 

E-snurce nante] 

-f cpde ffle 
FCODE input file. 

-1 o f f 1 e 

Object output file. If this argument is not quoted, no object file is produced. 
The object file is in an AOF file, and may he linked with other AOF files 
using the linker Link to produce an executable file (see the chapter entitled 
Using the Linker). 

-asffl/fle 

Assembler output fdc. If this argument is quoted, a disassembled version of the 
object code is sent to the file- 

-ver/f le 

Output file for code generator messages and errors; if omincd, output is to the 
terminal. 



-opt opr f ortB 

Option string. The options ovailable have already been described. 

-map fiie 

The file ii^ed far the ct>(ie gcnemtar map output. The map gives the Dame, 
type and location <.\f local and COMMON variables in each program unit. 
The kKation \i relative to the start of the static area for a k)cal variable and is 
the off^c in the block for a COMMON variable. The offset of each statement 
number from the start of the code is also given, 

-debug ieve( 

Level of debug information. The levels available have already been Jeseribed. 
-source nsme 

Name of FORTRAN source file to be included in debugging information. Not 
used if the debug level i5 none (the ddault). 

The special keyword -^heLp can be used to obtain a summary of the 
ajTguments expected by the code generator: 

f77cg-help 
Examples 

f77cg rode -to aof .prog 

Generate ctxle from FCODE in tmp.fcode to an object file in aoLprog- 
f77cg t™p« prog -asm vdu; 

Cede generate tmp.fctxle, sending assembler ourput to the rerminaL 

f 77t§ tnip.. f code ^to aof - prog -map map. prog 
Qkle generate as before, bui also send map output to map,prog. 

f 77cg tmp. f code - to aof . p rog -opt +b 
Code generate w^ith bound checking code inserted. 

f 77cg tftp f code ^to aof\prog ^debug all ’-source f 77^ prog 
Code generare with full debugging information, with the FORTRAN source 
specified as f77-prog. 

LINKING AND EXECUTION 

A compiled FORTRAN program is linked using the standard Archimedes 
linker. The FORTRAN 77 library file should be quoted as one of the input 
files, using the library qualifier /L The resulting priLjgram is tun in the normul 
way. 

Use the link command sequence as follows^ 
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Hnkf77 source 

The Iinkf77 command sequence uses value of the system variable F77$Library 
as the name of the FORTRJ^N library file. If the variable has not been set, the 
defiiult name is t.library.Itb.f?7. The variable should be set if the library has 
been stored on a different disc or filing system, For example, if the library is on 
a network file server: 

set 777SLlbrary' net:S..ArthurL1b„ Lib.f77 

The linkf77 command sequence is for simple links and may be adapted for 
more advanced tequirementSi The basic form of a E^!)RTRAN 77 link is; 

Link aaf.jf in,S. Library-lib.f77/1 -output jim 

The linker may he used to combine a number of FORTRAN object modules to 
a single executable file.The general form of the command isi 

Link aqf.BOdl ao-f.modS ... S. library * Li b.f77/I -output 
prog 

Here, modi, modZ, etc, are the object modules and prog is the executable 
image file. 
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IXTENSIONS TO THE STANDARD 


Acorn FORTTIAN 77 offers several enhancements to the standard) which are 
described in this chapter. To get a warning thar the extensions described in 
this chapter have been used, use the 7 option when compiling (see the chapter 
entitled The compiler). Furcher extensions concerning input/output are 
described in the chapter entitled fnput/initput. 

HEXADECIMAL CONSTANTS 

Acorn FORTRAN 77 allows hexadecimal constants to he used whenever ati 
ordinury constant is allowed. A hexadecimal constant is of the form: 

?<type> <digits> 

<t¥pe> is a letter, specifying the type of the cont^ant. It must be one of I, R, 
D, C. L, H, or Q (for INTEGER, REAL, DOUBLE PRECISION, 
COMPLEX, LOGICAL. CHARACTER and COMPLEX* 16, respectively). 

The <type> letter is followed by hexadecimal <digit5> (0-9, A-F), There 
muse always be an even number of digits (that is, an exact number of bytes). 

The bytes in a CHARACTER hexadecimal constant are given in the order in 
which they are to appear in store. With other constants, the most significant 
byte is given first. If the type of the constant is REAL, DOUBLE 
PRECISION, COMPLEX or COMPLEX *16. the number of byres must 
match the star of the item in store (4, 8 or 16); for INTEGER and LOGICAL 
constants, there may he fewer bytes. For example: 

CHARitCTER WINDOW * (*> 

PABAMETEH (WINDOW ^ ?H I COS 141 EDO 
J = ?11£34 

Here, WINDOW consists of the bytes IC 05 14 lE OC, and J is set to die 
decimal value 4660. 

-V, 


NAMING 

In Acorn FORTRAN 77, all lower-case letters (except in FORMATS and 
character constants) are converted into upper case upon reading the source, so 
all statements, identifiers and so on may be in lower case. Names may he up to 
255 characters long. It is worth noting, to save conhision, that there is no 
limit on the length of CHARACTER values. 




LOOPS 


WHILEENDWHILE 
This loop construct has the syntax: 
yHILE ClogIcaL expr)' PO 


ENPWHILE 

WHILE and ENDWHILE must be nested correctly> and neither statement 
may be used as the terminal statement of a DO—lcx)p» or in a logical IF. 

The lotip is equivalent to: 

11 IF t.NOT. Logi caL expr) GOTO 12 

GOTO U 

12 

This form of loop Ls compatible with WATFIV and the Salford FTN77 
compiler for PRIME computers. 

DO WHILE 

This loop construct has the syntax: 

POn[,] WHILE (toglcat expr} 


n ■» 4 

The rules regarding nesting and the terminal statement are exactly as for 
normal DO lot^- 

This form Uwp is compatible with the Fujitsu and VAX/VMS FORTRAN 
77 compileni, 

Block DO 

The syntax of DO and DO WHILE loops has been extended so that the 
terminal statement number may he omitted. The l(K)p is then terminated by 
an END DO statement: 
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= or 00 WHILE (logical expr) 

« « -ll V * p 

END 00 EttD DO 

END DO may not be ii»:d ai the tcrniina! statement in a labelled DO loopr 

This ftiftn of loop is compatible with VAWVMS FORTRAN 77 and the new 
FORTRAN standard > 

RANDOM NUMBER GENERATORS 

Acorn FORTRAN 77 has two routines for random number generation: 

REAL FUNCTION RND01 ( } 

recums a pseudo-landom number in the range 0.0 ^ r < 1.0 
SUBROUTINE SETRND (I> 

selects a new random sequence. If I is seru, the sequence is non—repeatable. 
The generator is initialised with a call to SETRND(O) so that successive runs 
will produce different sequences. 

INCLUDE STATEMENT 

An include statement allows a file containing source code to be read in by the 
compiler at the point where the include statement occurs. The syntax for the 
statement is; 

INCLUDE ’fi lertane ' 

Line numbers in the include file are not recorded on the object file and will 
therefore not appear in a backtracei correct line nLimbers are shown in the 
pnigiam listing and error messages. 


TYPE NAMES 

REAL*8 may be used as an attemarive to EXDUBLE PRECISION. The type 
names LOGICALM* [NTECiER*4. REAL*4 and COMPLEX*^ are 
synonyms for LOGICAL. INTEGER, REAL, and COMPLEX, respectively. 

COMPLEX* 16 

A COMPLEX* 16 value consists of pair of DOUBLE PRECISION numbeis, 
representing the real and imaginary parts of a complex number. The rules for 
the use of COMPLEX* 16 are the same for COMPLEX, with a few exceptions: 
_ 25 



• CombiniTig a COMPLEX* 16 with s REAL or COMPLEX gives a 
COMPLEX* 16 result, 

• Ormhining a COMPLEX with a DOUBLE PRECISION gives a 
COMPLEX* 16 result. (This cumbinarion used to be illegal.) 

• A complex constant containing a double precision value is a 
CX)MPLEX*16. 

• The inirinaic function DIMAG is used to extract the imaginary part of a 
COMPLEX* 16. DCMPLX is used to convert to COMPLEX* 16; it may 
have one ot two arguments, 

• The rules for storage Layout and equivaicncing of COMPLEX* 16 are the 
same as for COMPLEX, except that the individual parts are DOUBLE 
PRECISION, rather than REAL. 

• There are new specific names for intrinsic functions with COMPLEX* 16 
atRtimehts; these names must he used if it is wished to use such a function as 
a subntutinc argument. The names are: 

Generic Specific 
ABS CDABS 

OONJO DCONJG 

SQRT CDSQRT 

EXP CDEXP 

LOG CDLOC 

SIN CDSTN 

COS CDOOS 


BIT MANIPULATION FUNCTIONS 


There are eight intrinsic functions concerned with bit manipulation on 
INTEGER arguments. The functions are expanded in-line by the compiler 
and may aUo be passed as arguments in calls. The functions arc: 


lANDtl, J) 
IOR(L J) 
lEOR(LJ) 
NOT(l) 
ISHFTdJ) 


IBSFTfl.J) 


logical and of I and J 
logical or of 1 and J 
logical exclusive or of I and j 
Icigical complement of I 

return 1 shifted left J plactrs if J is priHidve or shifted right “J 
places if J is negative. The result is undefined if J is not in 
the range —3Z to +52. Bits shifted out at the end are lost; 
seroes are introduced at the other end. 
return I with bit J sec to one. Bit leio is the least significant bit. 



XTENSiONS TO THE STANDARD 

The result is undefined if J is nor in the r<niee 0”'3l 
IBCLRfl, J) return I with hit J set to leto, 

BTEST(I, J) test hit J of 1 and return a LOGICAL result — .TRUE, if the 
bit is set and .FALSE, if it is dear. 

Note that BTEST returns a LOGICAL results the other functions return 
INTEGER. 

For example; 

1 F (BTESTCIK^ 0) ) ♦ * * 

Test to see if IX is odd. 

'1=1ASID(I, ?I FF> 

Clear all hut the least siRnificant byte of I. 

1-1SHFT(J^-24) 

Extract the most significant byte of J. 

RELAXED RULES FOR LIST-DIRECTED INPUT 

When reading a complex value using list-directed {free format) input, an 
integer or real constant can he given - the imaginary part of the value is set m 
jero. 

When reading a character value, if the constant: 

* docs not start with a quote 

* is ccintained on a single record 

• does not contain an embedded space, comma or / character 

• does not start with digits followed by a *, 

then the delimiting quotes may be omitted and embedded quotes are not 
doubled. 

ARTHUR INTERFACE ROUTINES 

The FORTRAN run-rime library contains some simple routines to interface to 
the Arthur curating system. These are as follow's; 

OS_Byte 

SUBROUTINE 05BYTE ClFUNC,IARG1,lARGZ) 



Perform OS_Byte function JFUNC with parameters fARGJ and /ARG2, 
The arginnents (corresponding to the registers RO, R1 and RZ) are unchanged 
after the call. 

SUanOUTlNE DSBYTEI <1FUNC, 1ARG1, 1AR&2, 1RES1) 

Perform the OS*.Byte function as above with the first result (from Rl) passed 
back in the variable IRESl. 

SUBROUTINE 0SBYTE2 (IFUNC^ lARGl^ ZARG?, IRESl^ IRES23 

Perforin the OS—Byte function as above with the results {ffotn Rl and R2) 
passed back in rhe variables JRESJ and IRES2. 

Examples; 

• To disable cuisor editing 

CALL OSBYTE 1 , 01 

* To return the opeiuting system version in I NV£RS ION 

CALLOSBYTE1 (0, 0^ INVERSION) 

* To read a key with o lO'Second tuneoui, with the ASCII code 
going to KEY and the result flag to IF LAG. 

CALL DSBVTE2 NOD (1000,2561, 1000/256, KEY, 

+IFLAG) 

OS-Word 

SUBROUTINE OSNORD (ICODE, lARRAY) 

Perform OS-Word hinction ICODE with parameter block fARRAV (an 
integer array). 

Example; 

• To read the current graphics cursor position: 

INTEGER BLOCK (0:1), X, Y 


CALL OSWORO (13, BLOCK} 
X=IAN0 (BLOCKd), ?IFFFF) 
Y^^ISHFT <BL0CK(1>, -16) 

OSXLl 

LOGICAL FUNCTION DSCLI (STRING) 
CHARACTER * (*> STRING 
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OSCU parses the string to the command intepretcr for execution. The result 
is .TRUE, if the command succeeded and .Fd^lSE. if it failed In the case of 
an error, the code and corresponding message may be obtained by using: 

SUBROUTINE D&GETERROR (lERRNO, ERRSTR) 

CHARACTER *<*> ERRSTR 

Ketkim the error code and string message cunesponding to the Last operating 
system error. This should be called immediately after a failed OSCLl call (the 
message space is also Used by the FORTRAN lO library). 

For example, to display the contents of a directory: 

CHARACTER*80 DIR,MESS 
LOGICAL OSCLl 


IF (.NOT. OSCLJ ('CAT ' H D1R)» THEN 
CALLOSGETERROR (IERR, HESS) 

PRINT 100, lERR, NESS 
100 FORMAT ('Error no, A) 

ENDI F 






ti # - fi. m 
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Bnput/output 

This chapter descrities how FORTRAN 77 input and output functions are 
implemented and how thb affecis progranis. 

UNIT NUMBERS AND FILES 

A FORTRAN unit number ts a means cf referring to a file. Unit numbers in 
the range 1 to 60 umy be used^ as well as the two * units for the keyboard and 
screen. Unit number zm^ is equivalent to the asterisk units and may be used in 
sequential READs and WRlTEs only. Note that your filing s>'stem limits the 
number of files you can open simukanet^ly consult your fllmg sysretn 
manual. 

A unit number may be connected to an external file either by means of an 
OPEN statement or by assignments on the command line when the program is 
run. If an OPEN smtemenc with the FILE= specifier is used, then the unit is 
connected to the given filename; otherwise, the command line parametefs are 
scanned. 

The format of the command line is: 
command (file*) {unit—file+} 

that iSp an optional list of filenames followed by an optional list of aissignments 
of a particular unit to a named filc^ The Itiirial series of unkeyed filenames are 
connected to units U 2+ 3 and eti on. Each keyed file is connected to the given 
unit number. All unkeyed definitions must precede any keyed definitions. 

Examples are: 

PRaG ABC DEF 

This associates the file ABC with unit 1 and DEF with unit Z. 

PROG1D=F1LE 

This associates the file FILE with unit lO* 

PROS DATA JZ^OATA 3^X 

This associates DATA with unit L dam with unit 32, and x with unit 3. 

The two * units always refer to the screen and the keyboard- Any units which 
are ntjf connected to a file in an OPEN statement of command line 
assignment also refer to these streams. 

The screen and keyboard streams can be redirected to (from) a file using the 
standard Arthur syntax ({ > filename } and { < fi Lensme }), 



A file accessed with SI ATUS=SCRATCH (OPEN) or STATUS—DELETE 
(CLOSE) ts deleted when the unit Is closed. 

All files are closed auiomacically when a pmgnim tctminaces. 

Wlten writing to a sequential formarted file, a distinction is made between 
files which ai* to be printed and thfjse which are not. In the former case, the 
first character of each record is taken as a carriajte control and docs not form 
part tif the data in the record. Since any file may eventually be printed, some 
means is required in HORTRAN for specifying whether a given unit Is to be 
treated as a printer. This may be done in one of two ways; 

• .All units in the range 50--60 assume printer output by default. On nthitf 
units, the FORM=‘PRINTER' option can he used to select printer operation. 

• Quoting FORM=‘PRlNTER' in the first OPEN statement for the unit 
causes printer output to be assumed for that unit. (Note: thh is an extension 
to the standanl.) 

Note that printer output does not imply output to any physical printer which 
may he connected to the machine. 

The carriage control characters which arc nfcogni.sed and their representation 
in files are described in the section entitlesd Fonmjtttai fO. 


SEQUENTIAL HLES 

Opens and closes 

An OFtN statement for a sequenrial file does not specify the direction of 
transfer that U requited, so the actual system open operariim cannot done 
until the first READ or WRITE statement following the OPEN. For this 
reason, an OPEN statement which refers to a nonexistent file will not fail - 
the error will occur when a READ or WRITE is attempted, but may then be 
trapped by use of an ERR= specifier. 

A sequential unit may be u.sed without an explicit OPEN operation, in which 
case the file is actually opened on the first READ or WRITE which refers to 
the unit. The following subroutine is an example of the use of OPEN and 
ERR- - The routine copies a named file to the terminal, using unit 10, 

SUBROUTINE COPY (FlLEJ 
CHARACTER FILE* <*1,, L1NE*72 
OPEN flO, FILE=FILE, ERR-100) 

1 READ no, M A) % END-too, ERR = 10DJ LINE 
PRINT ■ tA5LINE 
GOTO 1 
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100 CLOSE f105 
END 

Formatted lO 

Formatted (and lisr-directed) reads and writes are permitted on all filci. 

A formatted READ statement causes one or mt^re records to fee read from the 
file or terminaU All input tecords ate assutned ro be esttended indefinitely with 
spaces, m that an input ftirmat may refer to more tharacrens than are actually 
preseni in the record. Input from die lerminal uses the nortnal line editing 
conventions (including cursor copying). CTRL/D is treated as end of file^ 
which may he trapped by an END= specifier in a READ statement. 

For file inpul, the characters carnage return (OD) and line feed iOA) are 
each recognised as record tenninaror^. Form feed (CX2) characTer^ are ignored- 
If the record contains more than 512 data characters, the rest are ignored. Tlie 
ctimhination carriage return-line feed (of line feed-catriage return) is rreated 
as a single record terminaEor, 

When writing a record to a file or cerminal, the carriage control characters are 
output first, followed by the data in the record. TTailing spaces are removed 
from all output records. 

The following carriiige con mil characters sire rectagnised: 

space performs a line feed (LF) 

O perfom^ LF/LF (extra blank line) 

1 performs CR/FF (newps^e) 

+ performs CR (ovcTprint) 

* no action taken 

The initial LF (spuce/0) or CR (1/+) b not output before the first record in 
the file. When a file is cJiwd. a line feed character is output if the final record 
contained any data characters. This Is done automatkally for all ispen files 
when a program terminates normally. 

When writing to a nnn'printer unit, each record is terminated with a newline. 
If a prompt line is required on output, a $ for \) character may be included in 
the format. This suppress^ the final newline. In addition, trailing spaces are 
not removed from the final line output by the format. This facility may he 
used to generate interactive prompts, as in: 

WHITE <6, * tAS) ■) * Type an integer s ' 

The $ {or \) acts as a normal item (like f) and can occur anywhere in the 
format (except after any unused editing chides, sirtce these will be skipped by 
the format processor). 




The followinf; example profiram illustrait.'S interaction with a temiiiml file: 

1 PRINT ' (Sa> ', 

READ £*,*,END^3> 1 
WRITE (*, 2) I * 1*1 

2 FORMAT (2110) 

GOTO 1 

3 END 

The CHAR function may be used to coiwtruct bytes for output as VDU 
control codes. For example, the following statements will switch the screen to 
MODE 3 on your machine: 

WRITE t*, 3) CHAR£22)., CHAfttS) 

3 format (S^ZA) 

Note the use of the $ format descriptiir to suppress the final newline. 


During fonnatted input of numeric values, blanks are either ignored ot treated 
as zeros, depending on the use of the BZ and BN format specifiers, and the 
BLANK status of the unit. All preconnected units (that is, those opened 
without explicit use of OPEN) have BLANK=ZERO M the default atatus; any 
unit connected by an OPEN statement has BLANK=NULL as the default. 
The difference in the defaults wwi intniduced for comparibility with 
FORTRAN 66 and the FORTRAN 77 subset language (in FORTRAN 66, 
blanks are always treated as zeros). 

Unformatted 10 

Unformatted reads and writes are permitted on disc files only. Unformatted 
and formatted ijperations may not be mixed on any unit, unless the unit is 
dosed and reopened. 

Each unformatted WRITE statement writes a single record to the file. The 
record may be read back later by any READ which quotes the same number of, 
or fewer, variables. For example, in; 

WRITE £1 > 1 , Z, 3, 4^ 5 
WRITE (1) 6, 7, 8 
REWIND 1 
READ Cl) I 
READ n) J 

i is to 1 and j to 6. The first rectmJ contains 20 bytes of data, and the second 
12 bytes. 
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TTie desired dfect ctnild be achieved by f^adding all unfonnatted rectiids to the 
same length, bui this would lead to wasted file space in many cases. The 
system includes a record length before every unfi^nnarted record when it is 
output, and always reads the right amount when the record is read again. 

The actual format of the length is the characteni UF, followed by a four-byte 
byte count giving the number of data characters following. The UF bytes are 
as a check that the file contains valid unfonnatted records. For CKample, 
the twtJ records written in the example above would contain the following 
bytes; 

55 46 U 00 OO 00 

01 00 00 00 0? 00 00 00 03 00 00 00 04 00 00 00 05 00 QO 00 
55 46 OC 00 00 00 

06 00 00 00 07 00 00 00 08 00 00 00 

DIRECT ACCESS FILES 

A direct access file consists of a number of records, all of the same length, 
which may he read and written in any order. The records are cither all 
formatted or all unfonnarted. 

An OPEN statement, tjuoting the record length, is always required when 
using a direct access file. The record length is measured in bytes, and 
formatted rectwds are padded to this length with s^raecs- 

A direct access file starts with six special bytes which identify it and give the 
record length. These bytes ate the characters DA followed by the record 
length as a four-byte value (LS byte first). 

It is permissible ro OPEN a direct acce^ file quoting a smaller record length 
than was given when the file was created. 

The maximum permitted record length in a formatted direct access OPEN is 
51 1 bytes; there U no limit for unfortiiafied files. 

If the file has been opened for updating or input, the fust six bytes of the file 
are read and checked. iTic OPEN will fail if these bytes are invalid, or the 
specified record length is greater than the value used when the file was 
created. 

Since it is possible both to read and write to a direct acce@ file, the system 
open operation may be performed as part of the OPEN statement, rather than 




being debyeii to the next READ ot WRITE, as is the case with sequential 
OPENs. Therefore, any errors which occur in the open may be trapped by an 
ERR= specliicr in the OPEN stateinem. 

Note that a direct access OPEN ttiay tefer to an existing file only if il is of rhe 
correct formatj however, it would he simple to provide a utility ptugram to 
create a new direct access file of a given site and record length. The following 
is an example ptogram which uses direct access to write and read a file on unit 
42: 

OPEN (42, ACCESS='OIBECT*, FILE='DA FILE■, R£CL^16, 
'(■ERR^IOQ, 10STAT=IERR) 

DO 1 J = 20,1,-1 

1 WRITE (4Z, REC=J > J, J + 1, J*J , J-l 
DO 2 J = 1,10 

READ (42, REC^J}, K, L, H 

2 WRITE (*, 3) K, L, M 

3 FORMAT < 1)(, 115) 

STOP 

100 PRINT *, 'OPEN FAIL: ' , lERR 
END 

Note that unformatred n:cords are the default for direct access files, The file 
‘dafile* used in the above example need not exist already, but if it does, it must 
he 3 valid direct access file with a record length not less than 16. 


OPEN and CLOSE 

The OPEN and CLOSE statements have been discussed above. The NEW 
and OLD values for the STATUS specifier in the OPEN statement ate 
ignored. 


INQUIRE 

INQUIRE by unit 

An INQUIRE by unit operation gives information on a particular unit. The 
EXIST specifier variable is set to .TRUE, if the unit 1$ in the valid range. It is 
impossible to give accurate responses to the SEQUENTIAL, DIRECT, 
FORMATTED and UNFORMATTED specifiets, sn ‘YES' is returned if the 
unit is actually being used for the relevant access type, and ‘UNKNOWN' is 
returned otherwise. Note that a unit is NAMED only if a FILE specifier was 


56 



NPUT/OUTPUT 


quoted in the OPEN statement for the unit. CL^mmand line file assignments 
an.' nut available to INQUIRE. 

ENQUIRE by file 

An INQUIRE by file c^ieration gives information on a particular filenatnq. If 
the file has been quoted in an OPEN statement for a unit (and not CLOSEdJ, 
infonnation deduced ffom that connection is returned (for example, DIRECT 
is set to ‘YES' if the file is tipen for direct access) ^ and the file is assumed to 
exist. Otherwise, if the file exists, the EXIST reply is *TRUE- and the 
responses to the SEQUENTIAL, DIRECT, FORMATTED and UNFOR^ 
MATTED specifiers are 'UNKNOWN’, 


BACKSPACE 

BACKSPACE is not implemented, 

ENDHLE 

The operation of ENDFILE is cntirelv internal to the nm-Eittic systems the 
only effect is to set end of file status and firrbid further access to the file. 

REWIND 

REWIND is implemented as a CTOSE followed by an OPEN, After executing 
a REWIND, the file is in a similar state to that arising after an OPEN 
statement * the system open operation is awaiting the next READ Of WRITE 
statement. 

FORMAT DECODING 

Format specifications ate decoded in a rather mote liberal manner than 
implied by the FORTRAN standatcl. 

■ 

Lower case letters 

Liiwcf case can be used instead of upper case everywhere; cases aie 
distinguished only in quoted strings and nH descriptors, and in the 0 , E and G 
edit descriptors {see below). 




Extraneous repeat counts 

Unexpectetl repeat counts are ignored - that is* before * , T , / , e , S and e 
edit descripitjtsp before the sign of a P edit descriptor, or before a comma or 
c Losing; parenthesis. 

Edit descriptor separators 

A comma may he omitted except where the omission would cau^ ambiguity 
or 3 change in meaning - ihus, it cannot bw omitted between a repeatable edit 
descriptor (such as I 5) and an nH edit descriptor (such as 
11 htabcdef ghi j k). 


Numeric edit descriptors 

As well as the standard formsIw-n, Fw Ew, d, Ew. dEe^ Dy. 
GWi.d and Gy.dEe^ addtttunal forms are^ FUj Hy-dDe^^ 
£»w.dEe# £w*dPe and Z- 


When the exponent field width is specified^ the letter used to introduce it is 
used in the output form (in the same case). If no exponent field width is 
spcfcified then, except for G edit descriptors, the initial character of the 
descriptor is used in the output fonn (again^ in the same case). 

If an expment field width i$ given as a^erOp 2 b a^med; if on output the given 
cxptjncht field width is just too small for tl«^ exponent, the character 
introducing the cxfxinent field is suppressed. 

The Z edit descriptor provides input and output of numeric data in 
hexadecimal form. A field width of aeni implies the correct width for the data 
type being transfeired; Z by itself is a shorthand for ZO. 

A editing 

The A edit descriptor can also handle numettc list icerris; the effects are as 
reconTtnended in Appendix C (Hollerith) of the FORTRAN 77 standaidr If 
the field width is zero, the system will auromattcally use the right value hr the 
data type being transferred (4 or S). 

It mu^E be emphasised th^t this use of A editing was introduced solely to aid in 
the transfer of FORTRAN 66 programs: it shuuld not be used otherwise. 
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Abbrcvijations iuid fiynonyim 

5>niboi iibbrcvifliirm 

OP P 

1X X 

T1 7 

TLl TL 

TR1 TR 

AO A 

Transfer of numeric items 

The I edit descripror can he used to tnmsfer peal and dnuhje precision values; 
F ^ E ^ fr and G can he used to output an integer value. Note that the exiemal 
form of a value that is to be transferred to an INTEGER list item must not 
have a fractional part or a nej^tive exponent. 

$ and \ descriptors 

A $ or \ descriptor in a format suppreses the final newline when writing to a 
non'printcr file — sec the example earlier. 

GRAPHICS 

FORTRAN program* can use the foil range of .Arthur grapbiGi facilities by 
writing control codes to the VDU drivers. The CHAR function is used to 
convert an integer code to a character for output. 

The basic form of a WRITE statement to generate graphics is; 

yRIT£(*, ‘($,10A) ■ ) CHARtcodel ), CHAR (code Z) , , . . 

or 

PRINT *(£^10A)*^ CHARfeodel), CHARtcodeZl^ ... 

This example uses the standard asterisk output unit^^ any non-pmuer unit (1- 
49) could be usitd instead, The repeal count in the forniat (10 in. this example) 
must not be less than the number of VDU codes in the list. The $ format 
descriptor is used to suppress the final newline. 

The format can be given as a character constant, as above, or in a separate 
statement: 

PRINT 10D., CHAft<code1 CKARtcodeZ)^ ... 
lOa FORNAT(S,10A> 
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For example, to change to mixJe 12: 

PRINT ' ($,f2A) ' , CHAR (22),, CNAR( 12) 

Or to change the palette ft>T colour I nt refer no colour 6: 

PRINT 'tS,6A)'^ CHARCIV), CHARCI), CHAR(6), 

+ CHAR(O), CHAR<0). CHAR(O) 

Mt»t move and draw operation# take a pair of Ih-hit ecKTrdifiate#. Tltitse 
should be output a# a pair of bytes- For example, the following subroutine 
provides an intedacc to the general PLOT command (VDU code 25): 

SUBROUTINE PLOKTYPI, X, T) 

INTEGER TYPE, X, Y 

PRINT * ■, CHARt25>, CHAR(TYPE! , 

+ CHAH(1AN0(X,255)>, CHAR(ISHFT<X,^8)>, 

+ CHAR(1AND(Y,255)>, CHAR11SHFT<Y,-8) ) 

END 

MOVE and DRAW operatiorts are then type 4 and S PLOT calls. 

As a simpler alternative to writing the coordinates as four sepataic bytes, they 
can be output directly as characters, using the extension which allows non^ 
character data tt» be output with the A format descriptor; 

PRINT ■ (S,2A,2A2) CHAR(25J, CHARtTYPEJ, X, Y 

The A2 format descriptors cause the least significant two bytes of X and Y to 
be output ai characters. The complete PLOT routine is then: 

SUBROUTINE PLOTtTYPE, X, ¥) 

INTEGER TYPE, X, Y 

PRINT ■t*,2A,2A2)*,CHARt25), CHA«(TYP£),X,Y 
END 
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RRORS AND DEBUGGING 

In mosT cases, mistakes in a pittgram are traj^J, imd inciicBticin is iftvcn as to 
the likely cause ctf the problem via emir messages. Errors can be detected both 
by the compiler and by the run-time library. (An eKample of a feuk which is 
not caught by the compiler, bur by the FORTRAN run-time library, is 
attempting to divide by icru.) Mote usually, em>r messages are sent from the 
compiler. This may also generate warning messages which indicate to the 
ptxtitnimmer that the program may mJt behave as anticipated - for example 
using, but not declaring, a variable. 

FRONT END ERROR MESSAGES 

As mentioned in the chapter entitled Tlu! Compiler, the compiler is in two 
parts. ErtiJts trapped by the front end ate of a different type from thiise 
reported by the code generator. Front end error messages are ^rt, obvious 
statements indicating that the compiler has ^tred an unacceptable syntactic 
mistake. Since these messages are self-explanatory, they ate nut entmeiated in 
great detcitt here. They are divided into two classes: 

Class I errors cause the front end to abandon compilation of the current 
statement. The statement is printed as part of the error message, leather with 
the number of the line on which the 4ult appeared, an emrt number, and a 
descriptim of the errur itself. Thiui, if tine 211 contained the faulty 
FORTRAN statement; 

100 ERRONEOUS 

then the message puKiucod might be: 

211 100 ERRONEOUS 

L 211--^-? 

Error Ccode ZSIIJ: Statement not recognised 

Class 2 enoTs may he less obvinus in their report of a lault and do not always 
refer to the line which contains the code which instigated the error. For 
instance, information about missing labels is given at the end of the prograin 
unit, rather than where the non-existent label was calli^ 

The disrinction between these two types of eitur message has been made in 
onJet to relnfrirce the notion that errots do not necessarily occur at the line 
where the message is given; careful thought and a little imagination are often 
needed to pinpoint the cause of some persistent error messages 




WARNING MESSAGES 


The W lotion tjprion enables fhe Cii^mpiler to give advice in the form of 

wsmingsi: see rhe chapter entitled The. catnpii^ ftsr nnire detaib on its use- 
These warning messages are graded in severity (torn 1 (the mmx serious) to 4t 
and are useful in detecting areas which may cause the prtjgratn to behave in 
unexpected ways- 

Level I is the most senous^ indicating faults such as having a statement that 
cannot be reached because it is unlabelled and follows a jump. Level 2 flags 
rhe use of extensions ro ^landaEd FORTRAN 77 that are a pocentiat source of 
trouble (for examplei when moving software ro another machine). Levels 3 
and 4 are used to indicate items chat are legal but in poor style, and chus 
possibly mistakes. The strict FORTTIAN 77 option 7 is used to contml 
warnings about language extensions. If uriser, w^amings are not produced; 
otKerwise^ messages are pnxluced if the warning level [Wn) is I (the defeiult) 
or greateTi The 7 option is im^r by default so that the extensions may be u^d 
without messages, whatever the warning level. 

CODE GENERATOR ERROR MESSAGES 

Certain compile-time ettots cannot be detected by the front end, hut are 
reported by the code generator. As these are not always as explicit as front cod 
error messagesi they are listed in Appendix A with a brief explanation of their 
most likely meaning. The same caveat applies to the interpretation of cixfe 
generator emit messages as applies to that tif $nme fitint end ern;>r messages; 
the cmjr which Is refxjrted and its line number may not directly correspond to 
an emir in the program. For example, an array might he declared whidi is too 
big for the memory* Quire often, one error may spark oft' the detection of 
many others later on in the program. See ApptT^x A for a list of code- 
generator enor messages. 

CODE GENERATOR LIMITS 

The code generator has certain internal limits on the complexity of each 


pnigmm unit* These are; 

cixlc size 2 Mbytes 

number of labels 4096 

number of local variables 8192 

number of constants 8192 

number of COMMON bkicks 204S 

number of external symbols 2048 
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These limits should never be exceeded in practice; it is likelv ihAt the code 
generator will run out of store before this happens. 

RUN-TIME ERRORS 

Sometimes^ a program Lompilcs correctly and links without a problem — yet 
when an attempt is made Et> run the pmgrairii. an error message is produced. 
These emjr messages come from the FORTRAN run-time library and take the 
following form! 

+ + ++ ERROR H7 tent 

followed by a backtrace. 

N is an error number and text is a sentence describing the enorn A backtrace 
is, as the name implies, a re-tracing of the steps which the FORTRAN rur^- 
time library has taken in attempring to run the programs each line of 
the Kacktntce output gives the name of a program unit, the addresses of 
the corresponding static data area and [he line number. The data area address 
may be used in cmtjunccion with the storage map produced by die code 
generator lo examine [he values of local variables. The address of the ikta area 
is given in hexadecirrial. Note that a name In a backtrace refers to the main 
entry point of the program unit^ and so rnay mu W the actual name used in 
a calf 

Example run-time error message and backtrace 
+ +++ ERROR \Q2Sl LD input data not INTEGER 


Routine 

data area 

L I ne 

F77_jrUT 

soaoioaDS 


F77,I067 

aODOlOQOO 


ERR2 

aooooFFaA 

16 

ERRl 

SOOOOF9B4 

10 

F77_MArN 

&OOOOF9BO 

6 


In this examplci the main progrpim twith default name) has culled ERRl, 
which has called ERR2, which has actempfed to read an integer using list- 
directed inpur (the mp rwo names ate internaJ routines in the run ^ rime 
library). 

The call Eo ERR! in che main program waii on line 6; tK« call to ERR2 in 
ERRl was on line 10, artd so on. The appearance of lint; numbers in the 
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backtrace is cuntrulled by the compiler L option; level I is the default. See the 
chapter entitled T/ie ciffn/alcr for details about compilation options. 

[f a hardware trap occurs in a program compiled with line nuttiber level U it 
may not be possible to determine the exact line number. This is illustrated by 
the following trace; 

++++ ERROR 3000: hardware trap 

Routine data area line 

AdC 800005514 5/1A 

F77.NAIN 8000054EC 3 

Here, the main program called ABC foiled with a hardware trap between the 
lines 5 and 16 inclusive. If the pii^gtam Is lecompiled with line level 2, the 
exact number will he displayed. 


Code lOOO errors 

There am a number of simple run-time ertors producing error messages which 
have an error number of 1 TOO. (An example of a code ICKXJ message was given 
in the previous section.) See Appendix B for a comprehensive list. 


ARRAY AND SUBSTRING ERRORS 

There are two errors which may he ptoduced from a progtatn unit which has 
been compiled with the bound checking option (see the chapter entitled The 
compiler): 

+-»-++ ERROR I050t array bound error 
An illegal array subscript has been used. 

+++-^ ERROR 1D51; eubatrlnfl bound error 
An illegal substring has been used. 
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INPUT/OUTPUT ERRORS 

Input/uutput errurs Hue thnse which may be trapped by use of the END— and 
ERR= specihera in FORTRAN 77 statements, [f these arc not used, an. em>r 
message and code are pniduced as described below; otherwise, execution 
continues, wirh the error code available by use of the lOSTTAT specifier. 

All the messages have the general form: 

++++ ERROR N: FREFliC UNIT - reason 

N Is the errut code; PREFIX desetihes tRc 10 operation being attempted 
(which may be OPEN, CLOSE, BACKSPACE, ENDRLE, REWIND, or 
READ/WRITE) and UN IT is the unit number, with * given for one of the 
asterisk units and ‘internal' for an internal Rte, The rest of the message gives 
more infrmnation about the etror. 

End of file on input nwy be trapped with the END= specifier. The lOSTAT 
value in this case is — 1. Il END— is nut used, then the message end of file 
is pnxluced, with code KXX). Other erroTS may he trapped with the 
ERR=‘fpecifier. TTie lOSTAT value is the corresponding emir code, as listed 
in A/jpendijr B, 


TRACING 

Tracing a priigram's execuiion is a very useful debugging technique, applicable 
when a program compiles and runs successfully but produces unexpected 
output. The user selects the T option when compiling (see the chapter 
entitled The compiler) to sf^Kify that calls to special trace routines are to be 
included in the code. These mutines will cause trace information to he output 
when: 

• entering the program unit 

• leaving the program unit 

• a labelled sratement is about to be executed 

• the THEN clause of an IF...THEN or ELSEIF...THEN construct is about 
to be executed 

• the ELSE clause of an IF...THEN or ELSEIF...THEN constnict is about to 
be executed 

• a DO statement is about to be executed 

• another subprogram unit is about to be invoked. 



The truce muttnes will output a tuessage which starts with ***T anJ indicates 
the type of trace point encountered; for some of the*: tt will also indicate a 
count (modulo 32768) of the number of times this trace point has been met. 
A special routine called TRACE can he catted with a single LOGICAL 
argument to turn this tracing information on and off*. Note that even if the 
trace output is off. the countinE ^*11 he done so the values prCKluccd will 
he correct If tracing is turned on again. 

tf che main program is compiled with tracing on> the user will be asked if trace 
output is to be produced or suppressed. If the main program is compiled 
without Tracing, then trace output is initially enabled. 

In additltm to the TRACE ix>urinefc two further siibmutines are supplied as 
part of the tracing package. The first of these, HISTTOR (short for 
HISTORY), causes mfomiatiun to be output pbotit the last few traced 
subprogram calls. 

Each line of history information consists of a name, which may be preceded by 
>or by<. A right arrow indicates a traced call of a subpnigramp a left arrow 
indicates a traced exit from a program unit, and a line with neither type of 
arnr>w indicates a traced entry to a proHram unit. Note that tl^ name given 
when tracing entry and exit from a program unit is the name of the program 
unit itself rather than the name of the entry' called by ihe user. 

The final routine provided is BACKTR (short for BACKTRACE) which 
outputs information on the current nesting of program unit calk. Tlure toy tine 
fihould be given a single logical argument; if this is TRUE rhen the HISTOR 
subfoutine is involved after the backtrace information has been produced. In 
che Archimedes system, all tracing output \$ sent to the terminal or may be 
sent to a file using the SPOOL command. 
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SING THE LINKER 


The Linker is an essential proj^m for anyone developing prc:^raim in a high- 
level coinpiled language on Archimedes personal worksiations. Its purpose is 
to combine che contents of one or more ob|ect files (the output of a compiler 
of Assembler) with one or more library filesi producing a final executable 
progfiim. 

Syntax 

The format of the Link command is; 

Link ^output fi te lopt files 

The /lies argument is a list of input files; this is described below, -output 
is the only compulsory keyword. 

Below is a list of the cotnttiand line options that the Linker can take* Most of 
these will only be used occasiotially. In the descriptiotYs below. rhe importanti 
frequently-used options are given firsts followed by the less common ones. As 
usuah capital are used to denote die alrernative shortened form of the 
keyword. 

-Output 
-VIA 
-Case 
-Base 
-Verbose 
-Relocatable 
-Dbug 

Notes 

e the keyword -base followed by a numeric argument. You can use the 
prefix K to specify hexadecimaL and the suffixes k for 2^10 and m for 
2 ^ 20 . 

• the default base address for the output file is fiEODO (32K), If -dbug is 
specified, the default base addre^ is SSDDOQ (ie 320K). 

• The item files above is a list of one or more filenameSp separated by 
spaces. This part of the command must be given. Each of the files in the list 
must be in Acorn Object Format (compiled file^) or Acorn Library Format 
(Ubraiies)* They may contain references to external objects (procedures and 
varLables) which the Linker will attempt Tt> resolve by matching them 
against dcfinitiatis found in other files. 


Niime of the linked output file 
Uise a file to obtain (fuither} input file names 
Make matching of symUds case insensitive 
Set base address for output file 

Print messages indicating presgmss of the link operation 
Generate teluEiacable tm^ut file 

Generate an AOF Image for use with the Dbug program 




• You call use vy^ildcards in the filerame list. NiJmes using wifdtaids wlU be 

expamied into the list of files matching the specifkation. For exampieT the 
name might yield o.basmiin, aof.basexpr, 

aof. bi 

• Usually, at least one library file will be specified in the list. A library is jusi a 
collection of AOF files stored in a single Acom Library Format fde* YtMi can 
call the procedures in the Itbmry for cme language fmm programs written in 
another H as lofig as h^rh languages conform to the ARM Procedure Catling 
Standard and txJth run-time libraries use the common run-time kernel. For 
examplep an stssemhler prograim could use the C pri nt f fimctton, as tang 
^ the C mn-'time system had been initialised^ rhniugh the common run¬ 
time kernel. 

• Libraries differ irnm object files in rhe way the Linker uses them, Object 
flics" symU»U anr scanned only once when the Linker attempts to resolve 
external references. Libraries are scanned as many rimes as necessary. If $$ 
required symbol is found in one of the lihrary^'s eomponeni files, rhe whole 
component U incorptmted into rhe output file, 

• Two common ermis given during a link are caused by unresolved and 
multiple references. In the first case, a sycnhol has been referenced from a 
file (wha'se name is given In the error), hut them is no comiSfHjnding 
definirion for the symbc^l. This is usually caused by the omissjon of a 
required object or library file from the list^ or the mis-spelltng of a symbol in 
rhe original source pnjgrjm. 

• The second em:^^ is caused by a clash of names. For example^ a procedure 
might have been defined with the same name as a lihmry^ priKcdurt, or as a 
pnjccdurc in another object file. The verskm of rhe procedure used in any 
sitmtion Is the one local to the reference to it. 

• The -output keVTvord is obligaiory. It is followed by the name of the file 
to which rhe final linked program should be wTEtten. if you just want to use 
the Linket to check object files frir unrestjlved references, V<hj can specify 
the device null: as the output file; the final object Cixle will be discarded^ 
The output is usually in Anhur Image Format, which can be executed 
directly^ Alternative formats allow bw-level debugging wiih Dbug, which 
bnns part tff the Software Developer's Toolbox. 

Simple examples 

Before we move on to describe rhe rest of the Link command's options, we 

give some examples using the syntax described so far: 
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LI.nk -OUTPUT p ,91 evfi 9of .sieve, snsiUb 
Li nk -c X.nybaai c 3Df .bas9 tib.f77 
Link -0 null: sof.comp* 


VIA KEYWORD 


StitnEfimcs you may want To link a large number of intJut files which would be 
tedious to type on a cotmnand line, and whose names can't conveniently be 
matched by a wildcard speciftcation. Using the -via keyword, you can store a 
list of input filenames in another file and use this to access tKem. For example, 
suppose you created the file basf i les with the cnntenls: 

aof.main 
aof.expr 
aof.end 
aof.stmnt 
aof.lex 
eof.filing 
aof,tokens 

If you then used the command: 

« link-0 basic -via basfiles lib 

then the files listed in basf i Les would be linked, together with the AOF 
file Lib. 


CASE KEYWORD 


If you speciiy - case in the command line, then the Linker will nor treat the 
case of letteis as Significant in identifieB- By default, the identifiers nai n and 
Ma i n refer to different ohjecB, as they are spelt differently. However, with 
-case set, they arc the same identifier. 


BASE KEYWORD 


By default, the base address of the output file of the Linker is S600D. This 
corresponds to the start of application workspace on the Archimedes 
computer. Alternatively, if the -dbug option is given, the base address is set 
to &5QOOO. This is so that the debugger ptutgram Dhug can load at S£000 as 
3 normal application, and toad the file to be dcbuggied above itself. (Tliere are 
other changes when -dbug is given, as described below.) 




Using the -base keyword, you can set the base address of the output file to 
any desired value. For example, you may want a program to have a high load 
address (as with the -dbug option set), but still be directly executable (which 
a dhug file in AOF fnnriai isn't). 

The keyword is followed by a number giving the base aiidn?ss desired for the 
output file, eg ^base &3a000, -base 254lt etc. When this Is deme, all 
relocatable objects in the input files are relocated using that base instead of 
the defoult. ^ 

VERBOSE KEYWORD 

If you specify - v e r bos e on the command line, the Linker gives a report of its 
progress. A message is printed each file is opened and as each module is 
being relocated. For example; 

UnkJ opering p.basic 
1-inkt opening aof ..basi 
Link: opening aof.bas? 

Link: reLoeating modu Le aof.has 1 
Link: re Loeating nodu Le boI . bas2 
link: relocating poduLe ansi Lib Lfpprintf) 


RELOCATABLE KEYWORD 

Usually, when an image file is pioduced, it will execute correctly only at the 
base address given (nr the default). This is because the object pn^gram will 
amcain references lo absolute addresses within the data area. However, if you 
specify the -relocatable option, the final pmgram will be 
relocatable. Thai is, it can be loaded and executed at any address. 

This feat is achieved by adding a relocation table and a small pnigtam to 
perform the relocation to the final object code. The relocation table is a list of 
olbsets from the start of the program to words which need .relocating. These 
words are adjusted by the difference between the base address of the program 
and the address where it was loaded. Once the relocation has been performed, 
the program proper starts executing. 

The relocation process is very fast, and once it has been performed, the space 
occupied by the table is available as part of the program’s heap space when it 
starts executing. 




Using the linker 

Note that although this ability can be used to make a prt}gtam statically 
telocatablet it dties not confct true positioti'indepeodcncc on the program- 
That is, the program could not be moved in memory once it has started and 
still be expected to ivork. 


DEBUG KEYWORD 

If a piogmm is linked usii^ the -dbug keyword, m CKCcutahle image is nor 
formed. Instead, an AOF file is created which contains all of the symlxtls 
found in the original source files: The code segment of the file can be executed 
under the control of a Dbug prograin, and the contents of the code and 
data segments may be examined (and altered in the case of the data segment).; 


PREDEFINED LINKER SYMBOLS 


There arc several symbt?U which the Lmker knows about indepertdently of any 
of its input files. These start with the string Image** and, along with all 
other external names containing **, are reserved by Acorrt, 


The symbols are: 

I niage**R0S*6ase 
IniageSSROSSLlffll t 
ImageSSltSSBase 
Image**! tiSLi 1*11 
IiiiageSSRU**Ba$e 
Inage3SRU*$Llmit 


Address of the start of the read-only (program) area 
Address of the byte beyond the end of program area 
Address of the start of mn-time zercvinitiaiised area 
Address of the byte beyond the zero-initial ised area 
Address of the start of the read/write (data) area 
Address of the byte beyond the end of the data area 


Although it will often be the case, Acorn does not guatantee that the end of 
the read-only area corresponds to the start of the rcad/wfitc area. You should 
therefore not rely on this being true. 


Note also that programs can reside in read/writc areas, as they sometimes 
contain local writeablc data (eg modifiable cude), and it is pt>ssihle to have 
read-only data (eg flcxiting-point constants and string literals in C). 

I 

These symbols can be imported as relocatable addresses by assembly language 
routines that might need them. 

The Linker joins all areas {from all input fdes) with the same name and 
attributes together to form a single area. It then creates the two symbols 
n«ne**Base and name** Li mit to mark the start and end of the area. It is 
an error for two areas to have the same name but different attributes. 
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CODE GENERATOR ERROR MESSAGES 

arguifi^rtl out of t'ang& for CHAR 
Th^ mtTinsic fimcrkm CHAR has been used with a canstanr argument 
outside the range 0-255. 
total data area too large 

The size of the local storage area for the pTugrmn unit cxetreds memoiv size, 
array <rrame> has inva Liri si 
The size of the given array is negative or exceeds memor>' size, 
attempt to extend common block cfiame> backwards 

An attempt has been made to extend a COMMON block backwards by 
means nf EQUIVALENCE statements. 
bad length for CHARACTER value 
A value which is not positive has been used for a CHARACTER length. 
<class> storage block containing <naiie> is too large 
<class> is local or COMMON. The storage block containing the named 
variable exceeds memory size, 
concatenation too longj^ 

iTie result of a CHARACTER concatenation may exceed memory 
conversion to integer fai led 
A REAL or DOUBLE PRECiSlON vidue is too large for conversion ro an 
integer. 

0 to R real qpnverfiiort failed 
A DOUBLE PRECISION value is too large for conversion to a REAL. 
DATA sta ternent too comp Liqated 
The variable iLst in a DATA sratement is tocp complicated, and must be 
simplified- 

division by zero attempted in constant express 1 on 

The divw^r might be REAL, INTEGER, DOUBLE PRECISION or 
COMPLEX. 

real constant too large 
A REAL constant exceeds the permitted range, 
doubLe constant too Large 

A DOUBLE PRECISION cunstant exceeds the permitted range^ 
inconsistent eguivaLencing involving <na«e> 

The given variable is involved in inconsistent EQUIVALENCE 
statements. 

increment in OATA implied 00-loop is zero 
A DATA statement implied DO Uxip has a zero increment, 
insufficient store for code generation 
The code generator has run out of workspace - the program unit being 
compiled must be simplified. 



insufficient values i n OATft constant List 
There are mure variables chan constants in a DATA sraTemenn 
integer invalid for length or site 
A value which is not positive has been used for a CHARACTER length or 
atray size. 

1 0 bier bound exceeds upper bound i n subat ri ng 
In a substring, a constant lower bound exceeds the tcsnscant upper bound, 
lower bound of substring is less than one 
A constant substring lower bound is less than one. 
upper bound exceeds length in substring 

A constant substring upper bt^und exceeds the length of the character 
variable. 

s tsc k overt Lou - prog raimust be simplified 
The internal expression stack has overflowed - the ofiFendlng statement 
must be simplified. 

subscript below lower bound in dimension N 
A constant array subscript is less than the lower bound in the given 
dimension. 

subscript exceeds upper bound in the dimension N 

A constant array subscript exceeds the upper bound in the given dimension, 
too many constants in OATA stetement 
There are rtitire constants than variables in the DATA statement, 
too many prog r am units in com pi Lation 
The module Mmir must be incrtiised. 
type mismeitch in DATA statement 
The type of the constant is illegal for the corresponding variable, 
variable fnitiali sed more than pnee In DATA 
A variable has been iniriattsed more than once by DATA starement^ in this 
program unit, 

wrong ruraher"^Qf hex bytes for constant of TYPE type 
A hex constant has been given with the wrong number of digits, 
zero Increient in 00-loop 
A DO loop with a consitanl lem incfement value has been used. 
Inconsistent y$e of ^AME 

The external suhroiirine or function NAME has been lised with 
incomiAtcni argumeni types. This errnr message would cxicur with the 
following program: 
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callabc(1P 0) 
callabc(2) 
end 
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RUN-TIME ERROR MESSAGES 

Code 1000 errors 

<ch> edit descriptor cannot handle Logical list item 
Format descriptor used with a LOGICAL list item ts not L; <ch> is the 
actual descriptor used. 

<eN> edit descriptor cannot handle character List Item 
Fomuit descriptor laed with a CHARACTER list item is not At <ch> is 
the actual descriptor used. 

<ch> edit descriptor cannot handle numeric list item 
Invalid descriptor for numeric value; <ch>is the actual descriptor used. 

1 field width unsuitable 
Wrong number of digits in hex (Z) input field for given type. 

FORHAT - unexpected character <ch> 

Invalid character <ch> in FORMAT. 

FORMAT - bad nuireric descriptor 
Bad syntax for numeric FORMAT descriptor. 

FORMAT - cannot use uhen reading 
Quoted string used tn input FORMAT. 

FORMAT - unexpected format end 
End of FORMAT inside quoted string. 

FORMAT - cannot use H when reading 
nH used in input FORMAT. 

FORMAT - bad scale factor 
Bad +nP or — nP construct. 

FORMAT ’ too many opening parentheses 
More than 20 nested opening parentheses (including the first}. 

FORMAT - trouble with reversion 
Ntj value has been or written by the repeated part of the format (this wtaild 
cause an infinite loop if not trapped). The fbUcwing ptogram fragment 
illustrates the ttoublc witli reversion fbnnar emit; 
write f1, IdJ 1, j 
10 format tiS, (IxH 
format * width missing or zero 
Eiad width in numeric edit descripror. 

Unformatted output too Long 

Unformatted record length exceeds maximum permitted. This can occur 
with direct access output only. 

Unformatted Input record too short 
Input record dues not contain sdficient data. 
mismatched use of ACCESS, RECL in OPEN 
ACCESS^'DIRECT has been quoted in an OPEN which dues not contain 
3 RECL specifier, or vice vena- 
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INPUT/OUTPUT ERRORS 


1001 
1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1020 

1021 

1022 

1023 

1024 


i nva li d uni t number 
Unit number not in range 
invalid attribute 
Invalid attribute used in OPEN statement 
duplicate use of f 1 Lenaine 

The same filename hits been used mute than once in an OPEN statement, 
invaLid unit for operation 

BACKS PACE/REWINrVENDFILE attempted nn unit connected for direct 
access^ 

error detected p revi oua Ly 

An lO error has been detected previcustv on this unit, and trapped with 

ERR=* 

direct access without OPEN 
A direct access READ or WRITE has been iKsed withour an OPEN 
statement for the unit, 
invalid use of unit 

Inconsistent use of unit (formatted mixed with unfurmatwd, sequi^mial 
mixed with direct access or ENDFILE June previously), 
input and output nixed 

Input and (tutput mixed on a sequential unit (without inten'ening 
REWIND or OPEN), 
direct access not open far input 
The direct access hie could not be ripened for input (for example, file is 
write only). 

di rect access not open for output 
The direct access hie could not be opened for output (for example, file is 
read only). 

end of f i Le an output 

An attempr has been made to write oft the end of a sequential file. 

(In practice, this will occur with internal hies tmly.) 
invalid Logical fninput 
Formatted input file D contains bad logical value. 

Invalid number in input 

Bad number (range or syntax) in formatted h D, E, F. or G input. 

Bad complex data 

Bod COMPLEX ennstant in list directed input* 

LO repeat not integer 
Repeat count (r*) in list directed input is not Valid. 

LD input data not REAL 

Syrttax ur range error in REAL list directed input value. 



1026 

1027 

1D2e 

1029 

1030 

2000 

2001 

2002 

2003 

2004 

2005 

2006 

2007 

2009 

2010 
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L6 input data not INTEGER 

SyntJix tjr emir io INTHGER list diriicr^d snpur v^lw. 

Ll> i nput data not DP 

Syntax ut range error in DOUBLE PRECISION list directed input value- 
LD Input data not LOGICAL 
Syntax error in LOGICAL list directed input value. 

LD input data not COPIP LEI 
Syntax or range error in COMPLEX list directed input ™lue, 

LP input data npt CNARAtTER 
Syntax ertor in CHARACTER list directed input value. 

LD repeat split CHARACTER 

Attempt to split a repeated character constant across a record boundary. 
This Is strictly legale but almost impossible to Implement correctly* 
not aval Lab t e 

BACKSPACE operation Is not available, 
bad unformatted record Ciness^gel 
A record in an unformatted file dt)es not have the required structure. 

1 nvalid access to carniinal file (message} 

Attempt ro use terminal (or other i>utput device) as an unformatted or 
direct access file. Mote detail is- given, 
sequential open failed (message) 

The actual reason for the failure (for example, Bad name) given in the 
brackets. 

direct access open fai led tm ess age) 

The actual reason for the failure (for example^ Bad name) is given in the 
brackets- 

direct access 10 failed Cmessage) 

For example, attempt to read past end of file, 
record Length too Large 

The record length specified in a formatted direct access OPEN exceeds the 
permitted maximum (512 bytei). 
bad direct access fiLe Cmessage) 

A file used fat direct access has invalid initial data or insufficient record 
length^ 

bad cDDimand Line syntax 
sequential yrite failed Cmessage) 

I/O error on sequential ouqnut (for example, Can"l extend) 
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Hppendix c 

FORTRAN C COMMAND 

The C command is used to a command sequence with paiameter 

substitution^ Syntax: 

C f 1 Lengine args *.« 

The filename refers to the command sequence. If the file cannor be found in 
the current directory, then the directory $. exec lib is tried. Urder Arthur^ the 
value of the system variable F77$ExecIib (Lf set) is used instead of the default 
directory- The string should include a finaf dot^ 

If the C pn>gram is executed under a different name, that name is used for the 
comin^nd sequertce, and no filename b read from the command line. For 
example, if a copy of the C pns^ram is placed in $dibrary+f77^ then the 
command f77 will cause the command sequence $rexeclih.f77 to be obeyed- 

The C program functions by copying the command sequence to the temporary 
file $.tmp.exec, obeying directives and performing parameter substiruticm in 
the process. If the current input U fmm an exec filci this is appended to the 
temporary filet so that nested command sequences may be usedn Finally the 
temporary file is executed by the commard: 

exeeS.tmp.exec 

Under Arthur, die value of the system variable F77$Tmp {if set) is used 
instead as the directory for the exec file. The string should include a final dot> 

Values for F77$Execlib and F77STmp corresponding to the defaults are 
Srexeclih. and Sptmp. 


DIRECTIVES 


A line in a command sequence that starts with a dot is a direefive. 

The possible directives are: 

,key keyf Defines the key string to be used to decode the paTsmeters. The string is a 

series of keyword names, Jieparated by commas. Each keywtitd may be followed 
by one or more of the following attributes; 

/A'Argumcnt is compulsory. 

/K:If argument is present, keyword must be given. 

/S: Keyword is a jwitcfi with no value, 

A *key directive muM be present if the sequence contains any parameter 
substitution; more than one * Ics y is not allowed, * k is a synonym for .key. 



4oX char 

bra char 

ket char 
dollar char 

default key 

conca t char 

fd title 

help info 


Example: 

.key f rom/a ,ta/a/ k^opt / k^qulck/a 

In example»the arguments with keywords fri>m and to ate cumpulst^ry; the 

keyword to must always be given. The argument opt is opriorml, but the 
keyword must be present if the argument Ls used- The keyword quick is an 
optional switch. Examples of valid command lines (assuming that the 
command file is called coum) are: 

coiiii f i Lei -to f f Le2 

coHiia -from fi Lei -Dpt abc •^to fi Le2 

comm - to f^ Le4 f 11 e3 ^qui c k 

Subsequent direct!are introduced by char rather than dot- 

Examples 

.dot f 

+ key frcmi/a^tp/a/k 

Set the opening bracket for paFarEieter substitution to char. The initial value 
is <. 

Set the closing bracket for parameter ro char- The initial value is >, 

Set the character iiHed ro introduce parameter defaults to char. The mirial 
value is $. 

valSet rhe default value of the keyword key to v^al. Only one ^default 
directive is allowed for a keywords and it must tjccur the - key directive. 

Exam pier 

,default to vdu: 

.def is a synonym for .default 

Q'sneatenate a non-directive line ending in char with the (oltowing line. 
There is no default conc^renation chameter. 

Identification string. The string (with leading spaces removed) is output to 
the screen if the keystring conrains an ID keyword and “ 1 d is quoted on the 
command tine. Note that a *id diiective must Jbmecede the .key directive. 

Kelp information line. Several «heLp line^ are allowed^ the inJbrmation 
(pmccded by the identiheation strings if any) is written to the screen if the key 
string contains a HELP keyword and -help is quoted dh the command line. 
After writing the help iext» the C command terminates. A single leading 
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space is removed trom each line of help text. Note thai all * he Lp directives 
must precede the , kty directive. 

Directs VL^ with a space directly after che dot are ignored; they can therefore be 
Liicd ii commenr lines. 

PARAMETER SUBSTITUTION 


The value of a parameter may be insetted by ^ reference like; 

<key> 

The bracket characters may be changeti by *brii and . ket directives - see 
above. The value of a s^t i^>itch (/S) parameter is its name, 

A default value for the key may be specified; 

<keySdefay Lt> 

The defatiU may itself be a parameter reference: 
ckeyS<key2Sdef aul t;> 


or 

<keyS<kfly?*<key3SdefauIt> 


etc. 


The dollar character may he changed by dte .dollar directive. The default 
is used if the key has not been set on the command line or by a .default 
directive^ The key name must be in the key siring or must be one of the 
following built-in names. 


=DATE 
=T1ME 
= DAYNO 
= MONTH 
=YEAR 
=TMP 


The date in the hum DD-MMM'YY. 

The time in the form I-LH;MxVI:SS. 

The day of the month in the form DD. 

The date in the form MMM. 

The date in the form 19YY. 

The smrhLbtd tempcjniTy directory name (possibly set 
from F77$TiTip), wirh final dot. 


If the system date has not been set, "<unset>” is used^ 


Under Arthur, a key name may alsti be a system variafate, such as SYS$Time 
or F77$Execlih, A \ must be used to escape the $ character in such names 
(otherwise ir would be treated as the default value prefix). 


For example; 


echo <Sys\$Timo <F77\SExec lib> 
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EXAMPLE 


The tbllowmg is an example command sequence to compile a FORTRAN 
program: 

. Coiamand sequence to conpi le fORTRAM 


,id F77 conunand sequence version 1-00 


.help 

.help Keywords 

.help 

.help - i roB Source file indirectoryf77 

.help*-object Output file name inaof; detau L t <i ro«> 
*heLp-opt Conpi Leroptions 

-help 

-help For exentple: 


-help 



ip 

f77 

abc 

compl le 

f77-abc to aof w abc 

* he 

ip 

t77 

prqf -Object X 

compiLe 

f77«prog toaof^x 

^ he 

Lp 





*he 

ip 

Opti 

ons! 



. he 

Lp 





. h« 

Lp 

B 

bound checking 

Ln 

iinenumber Level 

< h€ 

Lp 

5 

Fortran 66 

7 

strict Fortran 77 

* he 

Lp 

T 

Tracing 

wn 

yarning level 

.he 

Lp 

Xn 

Cross reference 



phe 

Lp 





. ti e 

Lp 

Pef a 

ult ere; L1W2X0-BT67 



-key frQii/8,ohject/k,opt/k,i;d/s^heLp/s,id^identify/s 
f77fe f77.<f roi«> - to <=tiiip>f code -opt <optS+> 
f 77cfl <MtiBp>f code -to flOf .<ob j eetf<f ron^ -opt <opt*'r> 


remove <=tep>icode 


Note that ID and HELP keywords are included in the key string. 
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CALLING ASSEMBLER FROM FORTRAN 

This section provides stmc guidance on the writing of assembler routines to be 
called irom FORTRAN, ti is assumed that the reader ts familiar with 
ObjAsm, 

Register convcnttons 

FORTRAN prograins use a simplified fonn of the standard Acorn calling 
cunventums [as delined in Appendix C iif the Arclimwcles PnigrunuTier’a 
Reference Mtinutd). The main differences ate that only one atgument is pasiied 
in all calls, and that the registers reserved for register variables (vl-v6 and f-f- 
f7) are not preserved by FORTRAN subprograms. Thus C programs cannot 
call FORTRAN (because Tegtstets are not preserved), although FORTRAN 
can call C. 

The detailed register usage is: 

R0'R9 Scratch registers. 

FT (RlO) Used to refer to argument list wtthtn subprogram. 

SP (Rl2) Standard run-time stack. 

SB (R1-?) Used to refer to local data within subprri'gram. 

Argument lists 

Every call in FORTRAN passes imt argument in RO (A1). This is a pointer to 
a list of the addresses of the arguments given in the call (every argiiment in 
FORTRAN is passed by reference). Thus the address of the first argument is at 
IR0,#0|, the second at fR0,#4], etc. If an assembler routine does not call any 
other niutines, the argument list can be left in RO. Normally, however, the 
address tif the list is copied to FP (RlO), which is preserved by calls. 

For a CHARACTER atguntent, the address in the argument list does not refer 
directly to the d.it3i instead it pthtits at a chdrocter descTijptor. which is an eight' 
byte block containing the address of the character value in its first word and its 
length in the second. Fur example, if the third argument in a call is a 
character value, die following ctxle fragment loads its address into R1 and Its 
length Into R2i 

LDR f Descriptor address 

LDfllA ^Address and Length 

Function results 

Ikrr ntm-CHARACTER functions, the address of the result is passed back in 
RO (ie- rKe result stoned and the addreM of the Inc^rion loadt^ mta RO). A 



chjiraccer function h implemented m a subrotitine with the eddren^ of the 
result location |as a character descriptor) passed as an e^ctra fir^t argument 
(thus the first argument in the call appears as the second aigumcnt, and so 
on). 

A subroutine with altEmate n_-tutns (*^s in the argument list) is implemented 
as an INTEGER function. The result should be 2 ero for the main return, one 
for the first alccmaie return, rwo for the secondt t;tc. The akemate return 
specifiers do not appear in the argument list^ 

Static data 

Static data for an assemhler noutine should be allocated in a writeable area and 
addressed using SB (Rl3) within the routine {this register k preserved by 
calls). 

Section format 

The code area in a FORTTL.AN assembler module should start with the mutine 
name as a twelve-character string, padded with 2 ^ces* The addfeist/ the first 
byte after this name Is pushed to the stack during entry. The code area should 
be named FZJSSCode and have attributes CODE and REA DON LY^ The data 
area {if any) shtiuld be named F77$$Dam and have the DATA attribute. 

The basic layiiut of a FORTRAN ai^mhler section is: 


TTL 

; Reg'tsters 

"na 

RO 

RN 

0 

HI 


1 


fE9 

«' ft # 

nn 

9 

FP 

RN 

10 

SP 

RU 

1? 

sa 

RM 

13 


RM 

14 

PC 

RU 

15 

FO 

FN 

!l ■ * 

□ 

F7 

m- w «• 

FN 

7 
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; Data 

AREA »F77S$DatB* 

data deciarations 

; Code 

AREA I F77»SCodel ,CDt»E,READOKLY 

MAKE DCB *'modn3i*e " 

OATAPTR PCD lF77t*Patal ; Address of data 

code ... 

EhD 

COMMON blocks and NOINIT 

FC^RTRAN cumnum blocks should be dclined as named AREA* with the 
COMMON and NOINIT aittibuccs. An initialised COMMON bli>ck 
(equivalent to a BLOCK DATA subptu^m) should be dcTined with the 
COMDEF I common definition) attribute. FORTRAN blank common, is 
Riven the name F77_BLANK. 

Entry and exit sequences 

The standard entry sequence for a FORTRAN-callable murine is: 

ADR Rl,NAHE + '^2 

STHFD SP!^(RljFPySa,Hl4> 

LDR SB^DATAPTR ; Address data area 

MOV FP^RO ; Copy argument List 

NAME refers to the twelve character module name at the start of the section. 
The return sequence is: 

LDHFD SP!,tHl,FP,S9,PC> 


A complete example 

This (rather contrived) example illustrates the use of function results and 
CHARACTER arguments, The FORTRAN 77 equivalent cf ICHSUM 
would be: 

JNTE&ER FUNCTION ICHSUntCH, ARRAY} 

CONNON/CNAX/ MAX 
CHARACTER *(*) CH 
INTEGER ARRAY<«) 



ICHSU« = 0 
MAX = 0 
&0 J = 1^LEN<CM> 

ICH ^ ICHAKCCHCJ;J >) 

ARftAYfJ J ^ ICH 
ICHSUR - ICHSUM + ICH 
IF (ICH *GT- MAX) MAX = ICH 
END PO 
END 

In Other words^ ihc dh^racccrs from the string are assigned as Integers into the 
arniVi the sum of all the characters is returned as the result. The 
maximtim value in the array is assigned to a vnriahte in COMMON block 
CMAX. The assemhler version of ICHSUM might bei 

TTL "Uhsum" 


; Registers 


RD 

RN 

0 

R1 

RN 

1 

R2 

RH 

z 

R3 

RN 

3 

R4 

RN 

4 

R5 

RN 

5 

R6 

RN 

6 

ft7 

RN 

7 

RB 

RN 

S 

R9 

RN 

9 

FP 

RN 

10 

SP 

RN 

12 

SB 

RN 

13 

RU 

RN 

14 

pc 

RN 

15 

FO 

FN 

0 

FI 

FN 

1 

F2 

FN 

2 

F3 

FN 

3 

F4 

FN 

4 

F5 

FN 

5 

F6 

FN 

6 

F7 

FN 

7 
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; Data 



AREA 

1F77S$Data1,DATA 



RESULT 

X 

4 

i 

Result Location 

j CDniinQn 

blck 





AREA 

CnAX^DATA,COnHON 


HQIHIJ 


X 

4 



; Code 






AREA 

1F77SSCodel^CODE 

,1 

READOWLV 

NAKE 

OCB 

"ICHSUH “ 



DATAPTR 

DCO 

1F77$9Data1 




EXPORT 

ICKSkJN 



; INTEGER FUNCTION tCHSUHCCH, lARRAY) 

ICHSUM 

ADR 

R1,NAHE+12 




STMF& 

SPi ,<«■(, FP,se,Rl4> 


LDR 

SB,DArAPTR 




wov 

FP,P!0 




LDMIA 

fP,{RO,R2> 

f 

Arguinent addresses 


LDMIA 

R0^CH0,R1> 

* 

f 

CH address and Length 


MOV 

R^rll^O 

9 

* 

Ini 1 1 aL f se sun^ 


MOV 



And maxi mum 

LOOP 

LDRU 

R4,ER03,I!I1 


Next character 


STR 

R4,[H2J^((4 

* 

* 

Store In array 


ADD 

R3^R3,H4 

9 

Add to su^ 


CMP 

R5,R4 

4 

Coppare with maximum 


nOVLT 

R5,R4 




SUBS 


-1 

Reduce count 


BGT 

LOOP 

■ 

4 

Round again 


LDR 

RO,COWHPTR 

M 

Get COMMON addrese 


STR 

R5, [RQ] 

* 

: St ore maxi muni 


STR 

fi3,[SB] 

f 

r 

Store result 


MOV 

RG,SB 

*■ 

JT 

Address of result 


LDMTD 

SP ! ,tRl,FP,Sa,PC> 


COMMPTR 

DCD 

CMAX 

«• 

# 

Address-of common b loi 



A &unple FORTRAN pnigram which uses ICHSUM might be; 

INTEGER X{ 10> 

connoN /CNAX/ mx 

ISDN - ICHSUfH '0123456789', X> 

PRINT *, ISUN, KAX, X 
END 

Assuming that the assembler text and FORTRAN test prtigram have been 
typed into the file* asn. + chSLiii and f 77. t es t respec lively, they cijuld be 
compiled and linked as fblbws: 

ob jasm asm. 1 chsum aof .ichsum -qui t -stamp 
f77 test 

Link aof.test aof.lehsuM S. Libarary.Lib.f77/1 -output test 
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CALLING C FROM FORTRAN 

FORTRAN proems can also call routines written in C. The C procedure has 
CO accept a single argiimenr which refers to a list of addressesn A simple way of 
doing this is to declare the afgument as a pointer to a structure cx^ntaining 
pointer fields. Functions have to be declared as returning a pointer results As 
an example^ a C version of the assembler above might be: 

typedef struct <Ghaf * address; int Length;> chardese; 
static Int sun; 

1 nt * ICHSUn (struct {chardesc * ch; int * array;} * args) 
t int j; 

sun = 0; 

for (j = 0; i <args ch length; j ++) 

C int ich = (args -> ch-> address) C]'3; 

sun +=ich; 

Cargsarray) til -icti; 

> 

return ft sun; 

> 

TTiis C function has the ,same specification as the assembler routine except 
that the maximum is not returned in the COMMON variable (C caimot 
success FORTRAN COMMON blocks Note that the function name must be 
given in upper case. The C prtx^edujne could be compiled and linked as follows^ 

cc -c ichsuif^c 

Link 3of * test o p i chsume s. Mbraryp Lib - f 77/1 

arm,clib-ansiLib/1 —image test 

The link command must he typed on one line^ Note that both the FORTRAN 
and the C libraries must he given. 










Bppendix f 

SAMPLE ASD SESSION 

Tl\is section gives a sample FORTRAN debugging session using ASD, the 
Ard'iur Symbolic Debugger. The example program is necessarily very simple 
and the fault it conmins is easy to spot, bur it should serve as an irrtroduction. 
to ASD. 

The following program is supposed to print out the date of Easter Sunday for 
the years 1970-1969 (using a very arcane algorithm). Note that the line 
numbers are not part of the program, hut are included to enable referiences lo 
he made in the text helow. 

1 PROGRAM EDATE 

i INTEGER DAY 

3 CHARACTER *(5) MONTH 

4 

5 DO Y - 1970,1989 

6 CALL EASTER DATEtY, DAY, MONTH? 

7 PRINT ■ (14, l!t, 12, IX, A>*, Y, PAY, MONTH 

a END DO 

9 END 

10 

11 SUBROUTINE EASTER DATE(YEAR, DAY, MONTH! 

12 INTEGER YEAR, PAY, G, C, X, Z, P, E, N 

13 CHARACTER *<*) MONTH 

14 

15 G » MQDCYEAR, 19) -H 1 

16 C = YEAR f 100 -I- 1 

17 X = C3 * C) / 4 - 12 

18 2 = £8*C + 5)/25-5 

19 P = (5 * YER) / 4 - X - 10 

20 £ = HOP (11 * G + 20 -I- Z - X, 30) 

21 

22 IF CE ,Efl. 25 .AND. G .GT. 11 -OH- E .EG. 24) THEN 

23 E = E + 1 

24 ENDIF 

25 

26 N = 44 - E 

27 I F (N . LT, 21 ) N = N + 30 

28 N = N + 7 -- M0D(0 + N, 7) 

29 

30 I F (N ,GT. 31) THEN 

31 PAY =N“31 



33 ELSE 

34 DAY - H 

35 MONTH - 'March' 

36 ENOIF 

37 END 

If this prograiTi is entered exacily as above and run, the results at first sisht 
seem cnmecr - the date for 1988 (3 April) is right. However, the date shown 
for 1989 is incorrect - the true result is 26 March. The result for 1970 is also 
wrong - it should be 29 March. 

To use ASD to investigate this program, it b itrst compiled aruJ linked with 
debug information included: 

177 edate—debug all 
liTliiEf77 edat e 

It i$ assumed that the source of the prtJgram is In I77.edaic. To enter the 
debugger, use the following command; 

*asd edate 

The first step might be to check that the results are printed correctly- So a 
hrrak ptiint is set on the PRINT statemem in the main pnigmiii (line 7): 

ASD: brk edate:7 

a d a t e in the brk command U the main program name; if the program had nor 
starred with a PROGRAM statement, the default name F77_MAIN would 
have been used instead. Note chat upper and hiwer case lerters in names are 
not distinguished when debugging FORTRAN programs, so the brk crimmand 
aK>ve could have been typed in any of the ftsliowing forms: 

asd: brk edate; 7or 

ASD: brk Edate;7or 
ASD: brk EdAtE:7or 
ASD: BRK eDaTe:7 etc. 

The program is run until die PRINT statement is reached and the value of 
DAY is displayed; 

ASD: go 

Program stopped as breakpoint Location edate:7 
ASD: print day 
27 

The value 27 shows that the feult ties In EASTER DATE - the correct result 
is 29. The next step is to trace though the subroutine; 
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ASO; brk oasterddte 
ASO: 

Program stopped as breakpoint dotation easterdate 

ASD: print year 

T971 

The print shows that the argument (YEAR) is correct, A simple step might be 
to set a break pt}int :ifier tiie initi^il calculations, on line 22; 

ASD : brk 22 
ASD : go 

Program stopped as breakpoi nt #3, Location 22 
ASD: print g 
15 

ASD: print c 
20 

ASD: print x 
3 

ASD: print a 
1 

ASD: print d 
-13 

ASD; print e 
3 

The value of D ( —13} looks a hit suspicious, so the value of the expression is 
displayed; 

ASD; print (5*year/A-x-ID 
2450 

2450 is not the same as —131 Inspection of the expression for D (line 19) 
shows that YEAR was mistyped as YER: Ll was therefore computed using an 
undefined value. To check whether this is the only problem, D can he set to 
the correct value (it 1$ not used in an expression until line 28) aivd execution 
resumed: 

ASD: Let d=^24SD 
ASD: unbreak 1 
ASD: go 
1971 11 Apri I 

Program stopped as breakpoint 112, location easterdate 

The breakpfjint on line 7 was cleared as that a result would be printed without 
stopping. The new result for 1971 is correct. If the program is altered and 
recompiled, the results for each year are now right. 
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This sample sessitm hiu given a ver>* ^petficial inttiiducrinn 10 the ptiwerful 
facLlities .ivailable iti ASD, which include prucedure rmcing and variable 
watchpuints. The reader is referred to the ASD reference manual for more 
inftJttnation. 
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ANS FORTRAN 3 
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output tile 14 

array 

and substring sub^ript 2 > 16 

site 53 

Arthur Interface routines 27-9 
ASD 10,14,7 M 
assembler, calling trom FORTRAN 
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limits 42 
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default 15 
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Hollerith 15,16 
INTEGER 23,25,26-7 
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REAL 23,25,26 
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address 43 
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